MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.11 Nov 86.sit / 02.11 Nov 86 / tab article / Source Files / tabGlue.asm < prev next >
MacBinary | 1986-10-13 | 15.5 KB | [TEXT/EDIT]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Oct 13 17:34:20 1986, modified Mon Oct 13 17:34:20 1986, creator Macintosh Edit, type ASCII, 15324 bytes "tabGlue.asm" , at 0x3c5c 348 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 74 61 62 47 6c 75 | 65 2e 61 73 6d 00 00 00 |..tabGlu|e.asm...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 3b dc 00 | 00 01 5c 9b b7 19 5c 9b |.....;..|..\...\.|
|00000060| b7 19 5c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..\.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 96 eb 00 00 |........|........|
|00000080| 3b 0d 3b 09 09 09 74 61 | 62 47 6c 75 65 0d 3b 0d |;.;...ta|bGlue.;.|
|00000090| 3b 20 4e 6f 74 65 3a 20 | 48 69 6c 69 74 65 20 69 |; Note: |Hilite i|
|000000a0| 73 20 6e 6f 74 20 6e 65 | 65 64 65 64 20 66 6f 72 |s not ne|eded for|
|000000b0| 20 74 68 65 20 4d 61 63 | 20 50 6c 75 73 20 62 65 | the Mac| Plus be|
|000000c0| 63 61 75 73 65 20 73 6f | 6d 65 0d 3b 73 68 6f 72 |cause so|me.;shor|
|000000d0| 74 63 6f 6d 69 6e 67 73 | 20 6f 66 20 74 68 65 20 |tcomings| of the |
|000000e0| 54 45 44 6f 54 65 78 74 | 20 72 6f 75 74 69 6e 65 |TEDoText| routine|
|000000f0| 73 20 68 61 76 65 20 62 | 65 65 6e 20 72 65 63 74 |s have b|een rect|
|00000100| 69 66 69 65 64 20 69 6e | 20 0d 3b 74 68 65 20 6e |ified in| .;the n|
|00000110| 65 77 20 31 32 38 4b 20 | 72 6f 6d 73 2e 20 20 49 |ew 128K |roms.  I|
|00000120| 66 20 79 6f 75 20 68 61 | 76 65 20 61 20 4d 61 63 |f you ha|ve a Mac|
|00000130| 50 6c 75 73 2c 20 73 65 | 74 20 74 68 65 20 63 6f |Plus, se|t the co|
|00000140| 6e 73 74 61 6e 74 20 0d | 3b 52 4f 4d 31 32 38 4b |nstant .|;ROM128K|
|00000150| 20 65 71 75 61 6c 20 74 | 6f 20 31 2e 20 20 49 66 | equal t|o 1.  If|
|00000160| 20 79 6f 75 20 68 61 76 | 65 20 61 20 31 32 38 4b | you hav|e a 128K|
|00000170| 2f 35 31 32 4b 20 4d 61 | 63 2c 0d 3b 20 73 65 74 |/512K Ma|c,.; set|
|00000180| 20 69 74 20 65 71 75 61 | 6c 20 74 6f 20 30 2e 20 | it equa|l to 0. |
|00000190| 20 54 68 65 20 61 70 70 | 72 6f 70 72 69 61 74 65 | The app|ropriate|
|000001a0| 20 70 61 72 74 73 20 77 | 69 6c 6c 20 62 65 20 61 | parts w|ill be a|
|000001b0| 73 73 65 6d 62 6c 65 64 | 2e 0d 3b 2d 2d 2d 2d 2d |ssembled|..;-----|
|000001c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001e0| 2d 20 20 49 4e 43 4c 55 | 44 45 53 20 2d 2d 2d 2d |-  INCLU|DES ----|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000210| 2d 2d 0d 0d 49 6e 63 6c | 75 64 65 20 09 4d 61 63 |--..Incl|ude .Mac|
|00000220| 54 72 61 70 73 2e 44 09 | 3b 20 55 73 65 20 53 79 |Traps.D.|; Use Sy|
|00000230| 73 74 65 6d 20 61 6e 64 | 20 54 6f 6f 6c 42 6f 78 |stem and| ToolBox|
|00000240| 20 74 72 61 70 73 0d 49 | 6e 63 6c 75 64 65 20 09 | traps.I|nclude .|
|00000250| 54 6f 6f 6c 45 71 75 2e | 44 09 3b 20 55 73 65 20 |ToolEqu.|D.; Use |
|00000260| 54 6f 6f 6c 42 6f 78 20 | 65 71 75 61 74 65 73 0d |ToolBox |equates.|
|00000270| 0d 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 20 58 44 | 45 46 73 20 26 20 58 52 |----- XD|EFs & XR|
|000002a0| 45 46 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |EFs ----|--------|
|000002b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002c0| 2d 2d 2d 2d 2d 2d 0d 0d | 09 58 44 45 46 09 74 61 |------..|.XDEF.ta|
|000002d0| 62 54 78 4d 65 61 73 09 | 3b 20 72 65 70 6c 61 63 |bTxMeas.|; replac|
|000002e0| 65 73 20 73 74 64 54 78 | 4d 65 61 73 0d 09 58 44 |es stdTx|Meas..XD|
|000002f0| 45 46 09 74 61 62 54 78 | 57 72 69 74 65 09 3b 20 |EF.tabTx|Write.; |
|00000300| 72 65 70 6c 61 63 65 73 | 20 73 74 64 54 65 78 74 |replaces| stdText|
|00000310| 0d 09 58 44 45 46 09 74 | 61 62 54 45 64 6f 54 65 |..XDEF.t|abTEdoTe|
|00000320| 78 74 09 3b 20 72 65 70 | 6c 61 63 65 73 20 54 45 |xt.; rep|laces TE|
|00000330| 44 6f 54 65 78 74 20 69 | 6e 20 24 41 37 30 0d 09 |DoText i|n $A70..|
|00000340| 58 44 45 46 09 74 61 62 | 4c 69 6e 65 53 74 61 72 |XDEF.tab|LineStar|
|00000350| 74 09 3b 20 72 65 70 6c | 61 63 65 73 20 6c 69 6e |t.; repl|aces lin|
|00000360| 65 53 74 61 72 74 20 69 | 6e 20 24 37 46 43 0d 0d |eStart i|n $7FC..|
|00000370| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000390| 2d 2d 2d 2d 20 67 6c 6f | 62 61 6c 20 76 61 72 69 |---- glo|bal vari|
|000003a0| 61 62 6c 65 73 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ables --|--------|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 3b 20 74 68 65 20 |--------|-.; the |
|000003d0| 61 64 64 72 65 73 73 20 | 6f 66 20 74 68 65 20 64 |address |of the d|
|000003e0| 65 66 61 75 6c 74 20 54 | 45 44 6f 54 65 78 74 20 |efault T|EDoText |
|000003f0| 72 6f 75 74 69 6e 65 20 | 77 61 73 20 73 61 76 65 |routine |was save|
|00000400| 64 0d 3b 20 69 6e 20 74 | 68 69 73 20 61 70 70 6c |d.; in t|his appl|
|00000410| 69 63 61 74 69 6f 6e 20 | 67 6c 6f 62 61 6c 20 64 |ication |global d|
|00000420| 75 72 69 6e 67 20 6d 61 | 69 6e 20 70 72 6f 67 72 |uring ma|in progr|
|00000430| 61 6d 20 69 6e 69 74 69 | 61 6c 69 7a 61 74 69 6f |am initi|alizatio|
|00000440| 6e 0d 0d 09 58 52 45 46 | 09 73 74 64 54 45 64 6f |n...XREF|.stdTEdo|
|00000450| 54 65 78 74 09 3b 20 61 | 64 64 72 65 73 73 20 6f |Text.; a|ddress o|
|00000460| 66 20 73 74 61 6e 64 61 | 72 64 20 72 6f 75 74 69 |f standa|rd routi|
|00000470| 6e 65 0d 09 58 52 45 46 | 09 73 74 64 4c 69 6e 65 |ne..XREF|.stdLine|
|00000480| 53 74 61 72 74 09 3b 20 | 61 64 64 72 65 73 73 20 |Start.; |address |
|00000490| 6f 66 20 73 74 61 6e 64 | 61 72 64 20 72 6f 75 74 |of stand|ard rout|
|000004a0| 69 6e 65 0d 09 58 52 45 | 46 09 6e 6f 77 54 45 09 |ine..XRE|F.nowTE.|
|000004b0| 3b 20 63 75 72 72 65 6e | 74 6c 79 20 61 63 74 69 |; curren|tly acti|
|000004c0| 76 65 20 54 45 68 61 6e | 64 6c 65 0d 09 58 52 45 |ve TEhan|dle..XRE|
|000004d0| 46 09 6e 6f 77 54 61 62 | 73 09 3b 20 63 75 72 72 |F.nowTab|s.; curr|
|000004e0| 65 6e 74 20 74 61 62 52 | 65 63 6f 72 64 20 68 61 |ent tabR|ecord ha|
|000004f0| 6e 64 6c 65 0d 09 09 09 | 3b 28 20 6f 72 20 30 20 |ndle....|;( or 0 |
|00000500| 69 66 20 6e 6f 74 20 74 | 61 62 20 57 69 6e 64 6f |if not t|ab Windo|
|00000510| 77 29 0d 0d 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |w)..;---|--------|
|00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 6f 74 68 65 72 20 |--------|- other |
|00000540| 45 71 75 61 74 65 73 20 | 2d 2d 2d 2d 2d 2d 2d 2d |Equates |--------|
|00000550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 0d 3b 20 |--------|----..; |
|00000570| 20 63 6f 6e 64 69 74 69 | 6f 6e 61 6c 20 61 73 73 | conditi|onal ass|
|00000580| 65 6d 62 6c 79 20 6f 66 | 20 48 69 6c 69 74 65 20 |embly of| Hilite |
|00000590| 72 6f 75 74 69 6e 65 20 | 69 66 20 6e 6f 74 20 73 |routine |if not s|
|000005a0| 65 74 0d 09 52 4f 4d 31 | 32 38 4b 09 45 51 55 09 |et..ROM1|28K.EQU.|
|000005b0| 30 0d 3b 20 73 6f 20 49 | 20 64 6f 6e 27 74 20 68 |0.; so I| don't h|
|000005c0| 61 76 65 20 74 6f 20 6c | 6f 61 64 20 74 68 65 20 |ave to l|oad the |
|000005d0| 51 75 69 63 6b 44 72 61 | 77 20 45 71 75 61 74 65 |QuickDra|w Equate|
|000005e0| 73 0d 09 6c 65 66 74 09 | 45 51 55 09 32 0d 09 62 |s..left.|EQU.2..b|
|000005f0| 6f 74 74 6f 6d 09 45 51 | 55 09 34 0d 09 72 69 67 |ottom.EQ|U.4..rig|
|00000600| 68 74 09 45 51 55 09 36 | 0d 3b 20 6f 66 66 73 65 |ht.EQU.6|.; offse|
|00000610| 74 73 20 69 6e 74 6f 20 | 74 61 62 20 72 65 63 6f |ts into |tab reco|
|00000620| 72 64 0d 09 74 61 62 57 | 69 64 74 68 09 45 51 55 |rd..tabW|idth.EQU|
|00000630| 09 34 0d 09 6c 61 73 74 | 54 61 62 09 45 51 55 09 |.4..last|Tab.EQU.|
|00000640| 36 0d 09 54 41 42 53 09 | 45 51 55 09 38 0d 3b 20 |6..TABS.|EQU.8.; |
|00000650| 4e 6f 74 65 3a 20 63 6c | 69 63 6b 53 74 75 66 66 |Note: cl|ickStuff|
|00000660| 20 28 31 20 77 6f 72 64 | 29 20 69 73 20 6e 6f 77 | (1 word|) is now|
|00000670| 20 74 65 4c 66 74 43 6c | 69 63 6b 20 26 20 74 65 | teLftCl|ick & te|
|00000680| 4c 66 74 43 61 72 65 74 | 20 28 62 79 74 65 73 29 |LftCaret| (bytes)|
|00000690| 0d 0d 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..;-----|--------|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 20 4f 74 68 65 72 20 58 |--------| Other X|
|000006c0| 44 45 46 73 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |DEFs ---|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 3b 20 58 44 45 |--------|--.; XDE|
|000006f0| 46 20 61 6c 6c 20 6c 61 | 62 65 6c 73 20 74 6f 20 |F all la|bels to |
|00000700| 62 65 20 73 79 6d 62 6f | 6c 69 63 61 6c 6c 79 20 |be symbo|lically |
|00000710| 64 69 73 70 6c 61 79 65 | 64 20 62 79 20 64 65 62 |displaye|d by deb|
|00000720| 75 67 67 65 72 2e 0d 3b | 20 74 68 65 73 65 20 61 |ugger..;| these a|
|00000730| 72 65 20 74 68 65 20 6e | 61 6d 65 73 20 6f 66 20 |re the n|ames of |
|00000740| 63 75 73 74 6f 6d 20 72 | 65 70 6c 61 63 65 6d 65 |custom r|eplaceme|
|00000750| 6e 74 73 20 66 6f 72 20 | 33 20 6f 66 20 74 68 65 |nts for |3 of the|
|00000760| 20 34 20 0d 3b 72 6f 75 | 74 69 6e 65 73 20 63 61 | 4 .;rou|tines ca|
|00000770| 6c 6c 65 64 20 62 79 20 | 54 45 44 6f 54 65 78 74 |lled by |TEDoText|
|00000780| 2e 0d 09 58 44 45 46 09 | 09 73 65 74 43 61 72 65 |...XDEF.|.setCare|
|00000790| 74 0d 09 58 44 45 46 09 | 09 48 69 74 54 65 73 74 |t..XDEF.|.HitTest|
|000007a0| 0d 20 49 46 20 52 4f 4d | 31 32 38 4b 20 3c 3e 20 |. IF ROM|128K <> |
|000007b0| 31 0d 09 58 44 45 46 09 | 09 48 69 4c 69 74 65 0d |1..XDEF.|.HiLite.|
|000007c0| 20 45 4e 44 49 46 0d 0d | 3b 2d 2d 2d 2d 2d 2d 2d | ENDIF..|;-------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|000007f0| 74 61 62 54 45 64 6f 54 | 65 78 74 20 2d 2d 2d 2d |tabTEdoT|ext ----|
|00000800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000820| 0d 3b 20 6f 6e 20 65 6e | 74 72 79 3a 0d 3b 09 41 |.; on en|try:.;.A|
|00000830| 33 3e 3e 09 70 6f 69 6e | 74 65 72 20 74 6f 20 6c |3>>.poin|ter to l|
|00000840| 6f 63 6b 65 64 20 65 64 | 69 74 20 72 65 63 6f 72 |ocked ed|it recor|
|00000850| 64 0d 3b 09 41 34 3e 3e | 09 68 61 6e 64 6c 65 20 |d.;.A4>>|.handle |
|00000860| 74 6f 20 65 64 69 74 20 | 72 65 63 6f 72 64 0d 3b |to edit |record.;|
|00000870| 09 44 33 3e 3e 09 70 6f | 73 69 74 69 6f 6e 20 6f |.D3>>.po|sition o|
|00000880| 66 20 31 73 74 20 63 68 | 61 72 20 74 6f 20 62 65 |f 1st ch|ar to be|
|00000890| 20 64 72 61 77 6e 20 6f | 72 20 73 65 6c 65 63 74 | drawn o|r select|
|000008a0| 65 64 0d 3b 09 44 34 3e | 3e 09 70 6f 73 69 74 69 |ed.;.D4>|>.positi|
|000008b0| 6f 6e 20 6f 66 20 6c 61 | 73 74 20 63 68 61 72 20 |on of la|st char |
|000008c0| 74 6f 20 62 65 20 64 72 | 61 77 6e 20 6f 72 20 73 |to be dr|awn or s|
|000008d0| 65 6c 65 63 74 65 64 0d | 3b 09 44 37 3e 3e 09 20 |elected.|;.D7>>. |
|000008e0| 30 20 74 6f 20 68 69 74 | 2d 74 65 73 74 20 61 20 |0 to hit|-test a |
|000008f0| 63 68 61 72 61 63 74 65 | 72 0d 3b 09 09 20 31 20 |characte|r.;.. 1 |
|00000900| 74 6f 20 68 69 67 68 6c | 69 67 68 74 20 74 68 65 |to highl|ight the|
|00000910| 20 73 65 6c 65 63 74 69 | 6f 6e 20 72 61 6e 67 65 | selecti|on range|
|00000920| 0d 3b 09 09 2d 31 20 74 | 6f 20 64 69 73 70 6c 61 |.;..-1 t|o displa|
|00000930| 79 20 74 68 65 20 74 65 | 78 74 0d 3b 09 09 2d 32 |y the te|xt.;..-2|
|00000940| 20 74 6f 20 70 6f 73 69 | 74 69 6f 6e 20 74 68 65 | to posi|tion the|
|00000950| 20 70 65 6e 20 74 6f 20 | 64 72 61 77 20 74 68 65 | pen to |draw the|
|00000960| 20 63 61 72 65 74 0d 3b | 20 6f 6e 20 65 78 69 74 | caret.;| on exit|
|00000970| 3a 0d 3b 09 41 30 3e 3e | 09 70 6f 69 6e 74 65 72 |:.;.A0>>|.pointer|
|00000980| 20 74 6f 20 63 75 72 72 | 65 6e 74 20 67 72 61 66 | to curr|ent graf|
|00000990| 50 6f 72 74 0d 3b 09 44 | 30 3e 3e 09 69 66 20 68 |Port.;.D|0>>.if h|
|000009a0| 69 74 2d 74 65 73 74 69 | 6e 67 2c 20 63 68 61 72 |it-testi|ng, char|
|000009b0| 61 63 74 65 72 20 70 6f | 73 69 74 69 6f 6e 20 28 |acter po|sition (|
|000009c0| 2d 31 20 66 6f 72 20 6e | 6f 6e 65 29 0d 3b 0d 3b |-1 for n|one).;.;|
|000009d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000a30| 0d 74 61 62 54 45 64 6f | 54 65 78 74 0d 09 54 53 |.tabTEdo|Text..TS|
|00000a40| 54 2e 4c 09 6e 6f 77 54 | 61 62 73 28 41 35 29 09 |T.L.nowT|abs(A5).|
|00000a50| 09 3b 20 69 66 20 6e 6f | 74 20 61 20 74 61 62 57 |.; if no|t a tabW|
|00000a60| 69 6e 64 6f 77 0d 09 42 | 45 51 09 40 30 09 09 3b |indow..B|EQ.@0..;|
|00000a70| 20 67 6f 20 74 6f 20 64 | 65 66 61 75 6c 74 20 72 | go to d|efault r|
|00000a80| 6f 75 74 69 6e 65 0d 09 | 54 53 54 09 44 37 0d 09 |outine..|TST.D7..|
|00000a90| 42 45 51 09 48 69 74 54 | 65 73 74 09 09 3b 20 44 |BEQ.HitT|est..; D|
|00000aa0| 37 20 3d 20 30 0d 20 49 | 46 20 52 4f 4d 31 32 38 |7 = 0. I|F ROM128|
|00000ab0| 4b 20 3c 3e 20 31 0d 09 | 42 50 4c 09 48 69 4c 69 |K <> 1..|BPL.HiLi|
|00000ac0| 74 65 09 09 3b 20 44 37 | 20 3d 20 31 0d 20 45 4c |te..; D7| = 1. EL|
|00000ad0| 53 45 0d 09 42 50 4c 09 | 40 30 0d 20 45 4e 44 49 |SE..BPL.|@0. ENDI|
|00000ae0| 46 0d 09 43 4d 50 09 23 | 2d 31 2c 44 37 0d 09 42 |F..CMP.#|-1,D7..B|
|00000af0| 4c 54 09 73 65 74 43 61 | 72 65 74 09 09 3b 20 44 |LT.setCa|ret..; D|
|00000b00| 37 20 3d 20 2d 32 0d 40 | 30 09 4d 4f 56 45 2e 4c |7 = -2.@|0.MOVE.L|
|00000b10| 09 73 74 64 54 45 64 6f | 54 65 78 74 28 41 35 29 |.stdTEdo|Text(A5)|
|00000b20| 2c 41 30 09 3b 20 44 37 | 20 3d 20 2d 31 0d 09 4a |,A0.; D7| = -1..J|
|00000b30| 4d 50 09 09 28 41 30 29 | 0d 0d 3b 2d 2d 2d 2d 2d |MP..(A0)|..;-----|
|00000b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b60| 2d 2d 2d 2d 2d 2d 20 73 | 65 74 43 61 72 65 74 20 |------ s|etCaret |
|00000b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b90| 2d 2d 2d 2d 2d 0d 3b 20 | 6f 6e 20 65 6e 74 72 79 |-----.; |on entry|
|00000ba0| 3a 09 73 65 65 20 61 62 | 6f 76 65 0d 3b 0d 3b 20 |:.see ab|ove.;.; |
|00000bb0| 6f 74 68 65 72 20 76 61 | 72 69 61 62 6c 65 73 0d |other va|riables.|
|00000bc0| 3b 09 41 32 3e 3e 09 70 | 6f 69 6e 74 65 72 20 74 |;.A2>>.p|ointer t|
|00000bd0| 6f 20 6c 69 6e 65 53 74 | 61 72 74 20 b2 20 44 33 |o lineSt|art . D3|
|00000be0| 0d 3b 65 78 69 74 3a 0d | 3b 09 41 30 20 3d 20 74 |.;exit:.|;.A0 = t|
|00000bf0| 68 65 50 6f 72 74 20 6f | 6e 20 65 78 69 74 20 61 |hePort o|n exit a|
|00000c00| 73 20 6d 61 6e 64 61 74 | 65 64 20 62 79 20 49 6e |s mandat|ed by In|
|00000c10| 73 69 64 65 20 4d 61 63 | 69 6e 74 6f 73 68 0d 3b |side Mac|intosh.;|
|00000c20| 20 73 65 6c 52 65 63 74 | 20 65 6e 63 6c 6f 73 65 | selRect| enclose|
|00000c30| 73 20 63 61 72 65 74 0d | 3b 2d 2d 2d 2d 2d 2d 2d |s caret.|;-------|
|00000c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c90| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 0d 73 65 74 43 61 72 |--------|..setCar|
|00000ca0| 65 74 0d 09 4d 4f 56 45 | 4d 2e 4c 09 44 32 2f 44 |et..MOVE|M.L.D2/D|
|00000cb0| 36 2f 44 37 2f 41 32 2c | 2d 28 53 50 29 0d 09 4c |6/D7/A2,|-(SP)..L|
|00000cc0| 45 41 09 74 65 4c 69 6e | 65 73 28 41 33 29 2c 41 |EA.teLin|es(A3),A|
|00000cd0| 32 0d 09 54 53 54 09 44 | 33 0d 09 42 45 51 09 45 |2..TST.D|3..BEQ.E|
|00000ce0| 32 0d 40 30 09 43 4d 50 | 09 32 28 41 32 29 2c 44 |2.@0.CMP|.2(A2),D|
|00000cf0| 33 0d 09 42 4c 53 09 40 | 31 0d 09 41 44 44 51 09 |3..BLS.@|1..ADDQ.|
|00000d00| 23 32 2c 41 32 0d 09 42 | 52 41 09 40 30 0d 40 31 |#2,A2..B|RA.@0.@1|
|00000d10| 09 43 4d 50 09 32 28 41 | 32 29 2c 44 33 09 09 3b |.CMP.2(A|2),D3..;|
|00000d20| 20 28 41 32 29 20 3c 20 | 44 33 20 b2 20 32 28 41 | (A2) < |D3 . 2(A|
|00000d30| 32 29 0d 09 42 4e 45 09 | 45 32 0d 09 41 44 44 51 |2)..BNE.|E2..ADDQ|
|00000d40| 09 23 32 2c 41 32 09 09 | 3b 20 6e 6f 77 20 44 33 |.#2,A2..|; now D3|
|00000d50| 20 3d 20 28 41 32 29 0d | 09 4d 4f 56 45 09 74 65 | = (A2).|.MOVE.te|
|00000d60| 4c 65 6e 67 74 68 28 41 | 33 29 2c 44 30 0d 09 42 |Length(A|3),D0..B|
|00000d70| 45 51 09 45 32 0d 09 43 | 4d 50 09 44 30 2c 44 33 |EQ.E2..C|MP.D0,D3|
|00000d80| 0d 09 42 43 53 09 45 30 | 0d 0d 3b 20 66 72 6f 6d |..BCS.E0|..; from|
|00000d90| 20 68 65 72 65 20 74 6f | 20 45 30 20 65 78 65 63 | here to| E0 exec|
|00000da0| 75 74 65 64 20 6f 6e 6c | 79 20 69 66 20 44 33 20 |uted onl|y if D3 |
|00000db0| 3d 20 74 65 4c 65 6e 67 | 74 68 28 41 33 29 0d 09 |= teLeng|th(A3)..|
|00000dc0| 4d 4f 56 45 2e 4c 09 74 | 65 54 65 78 74 48 28 41 |MOVE.L.t|eTextH(A|
|00000dd0| 33 29 2c 41 30 0d 09 4d | 4f 56 45 2e 4c 09 28 41 |3),A0..M|OVE.L.(A|
|00000de0| 30 29 2c 41 30 0d 09 09 | 3b 20 69 66 20 44 33 20 |0),A0...|; if D3 |
|00000df0| 3d 20 43 52 2c 20 64 6f | 6e 27 74 20 70 75 74 20 |= CR, do|n't put |
|00000e00| 63 61 72 65 74 20 6f 6e | 20 70 72 65 76 69 6f 75 |caret on| previou|
|00000e10| 73 20 6c 69 6e 65 0d 09 | 43 4d 50 2e 42 09 23 24 |s line..|CMP.B.#$|
|00000e20| 44 2c 2d 31 28 41 30 2c | 44 33 29 0d 09 42 45 51 |D,-1(A0,|D3)..BEQ|
|00000e30| 09 45 32 0d 09 4d 4f 56 | 45 09 2d 32 28 41 32 29 |.E2..MOV|E.-2(A2)|
|00000e40| 2c 44 36 0d 09 4d 4f 56 | 45 09 44 33 2c 44 37 0d |,D6..MOV|E.D3,D7.|
|00000e50| 09 53 55 42 51 09 23 31 | 2c 44 37 0d 09 4a 53 52 |.SUBQ.#1|,D7..JSR|
|00000e60| 09 74 73 74 54 61 62 09 | 3b 74 72 65 61 74 20 70 |.tstTab.|;treat p|
|00000e70| 73 65 75 64 6f 43 52 20 | 28 74 61 62 29 20 6c 69 |seudoCR |(tab) li|
|00000e80| 6b 65 20 43 52 0d 09 42 | 45 51 09 45 32 0d 09 42 |ke CR..B|EQ.E2..B|
|00000e90| 52 41 09 45 31 0d 0d 09 | 09 3b 20 74 65 4c 66 74 |RA.E1...|.; teLft|
|00000ea0| 43 61 72 65 74 20 69 73 | 20 73 65 74 20 69 66 20 |Caret is| set if |
|00000eb0| 63 61 72 65 74 20 69 73 | 20 61 74 20 62 65 67 69 |caret is| at begi|
|00000ec0| 6e 6e 69 6e 67 20 6f 66 | 20 6c 69 6e 65 20 0d 45 |nning of| line .E|
|00000ed0| 30 09 54 53 54 2e 42 09 | 74 65 4c 66 74 43 61 72 |0.TST.B.|teLftCar|
|00000ee0| 65 74 28 41 33 29 0d 09 | 42 4e 45 09 45 32 0d 45 |et(A3)..|BNE.E2.E|
|00000ef0| 31 09 53 55 42 09 23 32 | 2c 41 32 0d 09 09 09 3b |1.SUB.#2|,A2....;|
|00000f00| 20 73 65 74 20 74 6f 70 | 20 61 6e 64 20 62 6f 74 | set top| and bot|
|00000f10| 74 6f 6d 20 6f 66 20 73 | 65 6c 52 65 63 74 0d 45 |tom of s|elRect.E|
|00000f20| 32 09 4c 45 41 09 74 65 | 4c 69 6e 65 73 28 41 33 |2.LEA.te|Lines(A3|
|00000f30| 29 2c 41 30 0d 09 53 55 | 42 2e 4c 09 41 32 2c 41 |),A0..SU|B.L.A2,A|
|00000f40| 30 0d 09 4d 4f 56 45 09 | 41 30 2c 44 30 0d 09 4e |0..MOVE.|A0,D0..N|
|00000f50| 45 47 09 44 30 0d 09 41 | 53 52 09 23 31 2c 44 30 |EG.D0..A|SR.#1,D0|
|00000f60| 09 3b 20 64 69 76 69 64 | 65 20 62 79 20 32 0d 09 |.; divid|e by 2..|
|00000f70| 4d 4f 56 45 09 74 65 4c | 69 6e 65 48 69 74 65 28 |MOVE.teL|ineHite(|
|00000f80| 41 33 29 2c 44 31 0d 09 | 4d 55 4c 55 09 44 31 2c |A3),D1..|MULU.D1,|
|00000f90| 44 30 0d 09 4d 4f 56 45 | 2e 4c 09 74 65 44 65 73 |D0..MOVE|.L.teDes|
|00000fa0| 74 52 65 63 74 28 41 33 | 29 2c 74 65 53 65 6c 52 |tRect(A3|),teSelR|
|00000fb0| 65 63 74 28 41 33 29 3b | 20 74 6f 70 20 61 6e 64 |ect(A3);| top and|
|00000fc0| 20 6c 65 66 74 0d 09 41 | 44 44 09 44 30 2c 74 65 | left..A|DD.D0,te|
|00000fd0| 53 65 6c 52 65 63 74 28 | 41 33 29 0d 09 4d 4f 56 |SelRect(|A3)..MOV|
|00000fe0| 45 09 74 65 53 65 6c 52 | 65 63 74 28 41 33 29 2c |E.teSelR|ect(A3),|
|00000ff0| 74 65 53 65 6c 52 65 63 | 74 2b 62 6f 74 74 6f 6d |teSelRec|t+bottom|
|00001000| 28 41 33 29 0d 09 41 44 | 44 09 44 31 2c 74 65 53 |(A3)..AD|D.D1,teS|
|00001010| 65 6c 52 65 63 74 2b 62 | 6f 74 74 6f 6d 28 41 33 |elRect+b|ottom(A3|
|00001020| 29 0d 0d 3b 20 73 65 74 | 20 6c 65 66 74 20 61 6e |)..; set| left an|
|00001030| 64 20 72 69 67 68 74 20 | 6f 66 20 73 65 6c 52 65 |d right |of selRe|
|00001040| 63 74 0d 09 4d 4f 56 45 | 2e 4c 09 74 65 54 65 78 |ct..MOVE|.L.teTex|
|00001050| 74 48 28 41 33 29 2c 41 | 30 0d 09 4d 4f 56 45 2e |tH(A3),A|0..MOVE.|
|00001060| 4c 09 28 41 30 29 2c 41 | 30 0d 09 43 4c 52 09 2d |L.(A0),A|0..CLR.-|
|00001070| 28 53 50 29 0d 09 4d 4f | 56 45 2e 4c 09 41 30 2c |(SP)..MO|VE.L.A0,|
|00001080| 2d 28 53 50 29 09 3b 20 | 74 65 78 74 42 75 66 0d |-(SP).; |textBuf.|
|00001090| 09 4d 4f 56 45 09 28 41 | 32 29 2c 44 30 0d 09 4d |.MOVE.(A|2),D0..M|
|000010a0| 4f 56 45 09 44 30 2c 2d | 28 53 50 29 09 3b 20 66 |OVE.D0,-|(SP).; f|
|000010b0| 69 72 73 74 43 68 61 72 | 0d 09 4d 4f 56 45 09 44 |irstChar|..MOVE.D|
|000010c0| 33 2c 2d 28 53 50 29 0d | 09 53 55 42 09 44 30 2c |3,-(SP).|.SUB.D0,|
|000010d0| 28 53 50 29 0d 09 5f 54 | 65 78 74 57 69 64 74 68 |(SP).._T|extWidth|
|000010e0| 0d 09 4d 4f 56 45 09 28 | 53 50 29 2b 2c 44 30 09 |..MOVE.(|SP)+,D0.|
|000010f0| 3b 20 6c 65 6e 67 74 68 | 20 6f 66 20 74 65 78 74 |; length| of text|
|00001100| 20 66 72 6f 6d 20 28 41 | 32 29 20 74 6f 20 44 33 | from (A|2) to D3|
|00001110| 0d 09 41 44 44 09 44 30 | 2c 74 65 53 65 6c 52 65 |..ADD.D0|,teSelRe|
|00001120| 63 74 2b 6c 65 66 74 28 | 41 33 29 0d 09 4d 4f 56 |ct+left(|A3)..MOV|
|00001130| 45 09 74 65 53 65 6c 52 | 65 63 74 2b 6c 65 66 74 |E.teSelR|ect+left|
|00001140| 28 41 33 29 2c 74 65 53 | 65 6c 52 65 63 74 2b 72 |(A3),teS|elRect+r|
|00001150| 69 67 68 74 28 41 33 29 | 0d 09 41 44 44 51 09 23 |ight(A3)|..ADDQ.#|
|00001160| 31 2c 74 65 53 65 6c 52 | 65 63 74 2b 72 69 67 68 |1,teSelR|ect+righ|
|00001170| 74 28 41 33 29 0d 0d 3b | 20 72 65 74 75 72 6e 0d |t(A3)..;| return.|
|00001180| 09 4d 4f 56 45 4d 2e 4c | 09 28 53 50 29 2b 2c 44 |.MOVEM.L|.(SP)+,D|
|00001190| 32 2f 44 36 2f 44 37 2f | 41 32 0d 09 4d 4f 56 45 |2/D6/D7/|A2..MOVE|
|000011a0| 2e 4c 09 28 41 35 29 2c | 41 30 0d 09 4d 4f 56 45 |.L.(A5),|A0..MOVE|
|000011b0| 2e 4c 09 28 41 30 29 2c | 41 30 09 3b 20 41 30 20 |.L.(A0),|A0.; A0 |
|000011c0| 3d 20 74 68 65 50 6f 72 | 74 20 28 49 20 64 6f 6e |= thePor|t (I don|
|000011d0| 27 74 20 6b 6e 6f 77 20 | 77 68 79 29 0d 09 52 54 |'t know |why)..RT|
|000011e0| 53 0d 0d 3b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |S..;----|--------|
|000011f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 48 |--------|------ H|
|00001210| 69 74 54 65 73 74 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |itTest -|--------|
|00001220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00001240| 3b 20 6f 6e 20 65 6e 74 | 72 79 3a 09 73 65 65 20 |; on ent|ry:.see |
|00001250| 61 62 6f 76 65 0d 3b 09 | 74 65 53 65 6c 50 6f 69 |above.;.|teSelPoi|
|00001260| 6e 74 20 66 69 65 6c 64 | 20 68 61 73 20 6d 6f 75 |nt field| has mou|
|00001270| 73 65 50 74 20 69 6e 20 | 6c 6f 63 61 6c 20 63 6f |sePt in |local co|
|00001280| 6f 72 64 0d 3b 09 44 33 | 3e 3e 09 66 69 72 73 74 |ord.;.D3|>>.first|
|00001290| 20 63 68 61 72 20 69 6e | 20 6c 69 6e 65 0d 3b 09 | char in| line.;.|
|000012a0| 44 34 3e 3e 09 66 69 72 | 73 74 20 63 68 61 72 20 |D4>>.fir|st char |
|000012b0| 69 6e 20 6e 65 78 74 20 | 6c 69 6e 65 0d 3b 20 6f |in next |line.; o|
|000012c0| 74 68 65 72 20 76 61 72 | 69 61 62 6c 65 73 0d 3b |ther var|iables.;|
|000012d0| 09 44 34 3e 3e 09 66 6c | 61 67 20 26 20 68 69 50 |.D4>>.fl|ag & hiP|
|000012e0| 6f 73 69 74 69 6f 6e 0d | 3b 09 44 35 3e 3e 09 6c |osition.|;.D5>>.l|
|000012f0| 6f 50 6f 73 69 74 69 6f | 6e 0d 3b 09 44 36 3e 3e |oPositio|n.;.D6>>|
|00001300| 09 63 6f 75 6e 74 65 72 | 20 6f 66 20 63 68 61 72 |.counter| of char|
|00001310| 20 70 6f 73 69 74 69 6f | 6e 20 69 6e 20 6c 69 6e | positio|n in lin|
|00001320| 65 0d 3b 09 44 37 3e 3e | 09 73 65 6c 50 6f 69 6e |e.;.D7>>|.selPoin|
|00001330| 74 2e 68 20 2d 20 64 65 | 73 74 52 65 63 74 2e 6c |t.h - de|stRect.l|
|00001340| 65 66 74 0d 3b 09 41 32 | 3e 3e 09 70 6f 69 6e 74 |eft.;.A2|>>.point|
|00001350| 65 72 20 74 6f 20 6c 6f | 63 6b 65 64 20 68 54 65 |er to lo|cked hTe|
|00001360| 78 74 0d 3b 20 6f 6e 20 | 65 78 69 74 3a 0d 3b 09 |xt.; on |exit:.;.|
|00001370| 41 30 20 3d 20 74 68 65 | 50 6f 72 74 20 6f 6e 20 |A0 = the|Port on |
|00001380| 65 78 69 74 20 61 73 20 | 6d 61 6e 64 61 74 65 64 |exit as |mandated|
|00001390| 20 62 79 20 49 6e 73 69 | 64 65 20 4d 61 63 69 6e | by Insi|de Macin|
|000013a0| 74 6f 73 68 0d 3b 09 44 | 30 3e 3e 09 63 68 61 72 |tosh.;.D|0>>.char|
|000013b0| 20 70 6f 73 69 74 69 6f | 6e 20 6f 66 20 22 68 69 | positio|n of "hi|
|000013c0| 74 22 20 63 68 61 72 61 | 63 74 65 72 0d 3b 2d 2d |t" chara|cter.;--|
|000013d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 0d 48 |--------|-----..H|
|00001430| 69 74 54 65 73 74 0d 09 | 4d 4f 56 45 4d 2e 4c 09 |itTest..|MOVEM.L.|
|00001440| 41 32 2f 44 34 2d 44 37 | 2c 2d 28 53 50 29 0d 0d |A2/D4-D7|,-(SP)..|
|00001450| 09 43 4c 52 2e 4c 09 44 | 36 09 09 3b 20 63 6c 65 |.CLR.L.D|6..; cle|
|00001460| 61 72 20 62 69 74 20 33 | 31 20 74 6f 20 73 61 76 |ar bit 3|1 to sav|
|00001470| 65 20 4c 6f 63 6b 20 42 | 69 74 0d 09 4d 4f 56 45 |e Lock B|it..MOVE|
|00001480| 2e 4c 09 74 65 54 65 78 | 74 48 28 41 33 29 2c 41 |.L.teTex|tH(A3),A|
|00001490| 32 0d 09 42 53 45 54 09 | 23 37 2c 28 41 32 29 0d |2..BSET.|#7,(A2).|
|000014a0| 09 42 45 51 09 40 30 0d | 09 42 53 45 54 09 23 33 |.BEQ.@0.|.BSET.#3|
|000014b0| 31 2c 44 36 09 09 3b 20 | 73 61 76 65 20 4c 6f 63 |1,D6..; |save Loc|
|000014c0| 6b 20 42 69 74 0d 40 30 | 09 4d 4f 56 45 2e 4c 09 |k Bit.@0|.MOVE.L.|
|000014d0| 28 41 32 29 2c 41 32 0d | 09 43 4d 50 2e 42 09 23 |(A2),A2.|.CMP.B.#|
|000014e0| 24 44 2c 2d 31 28 41 32 | 2c 44 34 29 0d 09 42 45 |$D,-1(A2|,D4)..BE|
|000014f0| 51 09 40 31 0d 09 4d 4f | 56 45 2e 4c 09 41 32 2c |Q.@1..MO|VE.L.A2,|
|00001500| 41 30 0d 09 4d 4f 56 45 | 09 44 33 2c 44 36 0d 09 |A0..MOVE|.D3,D6..|
|00001510| 4d 4f 56 45 09 44 34 2c | 44 37 0d 09 53 55 42 51 |MOVE.D4,|D7..SUBQ|
|00001520| 09 23 31 2c 44 37 0d 09 | 4a 53 52 09 54 73 74 54 |.#1,D7..|JSR.TstT|
|00001530| 61 62 09 09 3b 20 63 68 | 65 63 6b 20 69 66 20 70 |ab..; ch|eck if p|
|00001540| 73 65 75 64 6f 43 52 0d | 09 42 4e 45 09 40 32 0d |seudoCR.|.BNE.@2.|
|00001550| 40 31 09 53 55 42 51 09 | 23 31 2c 44 34 09 09 3b |@1.SUBQ.|#1,D4..;|
|00001560| 20 66 6f 72 20 43 52 20 | 6f 72 20 70 73 65 75 64 | for CR |or pseud|
|00001570| 6f 43 52 20 28 74 61 62 | 29 0d 0d 40 32 09 4d 4f |oCR (tab|)..@2.MO|
|00001580| 56 45 2e 4c 09 74 65 53 | 65 6c 50 6f 69 6e 74 28 |VE.L.teS|elPoint(|
|00001590| 41 33 29 2c 44 37 09 3b | 20 70 6f 69 6e 74 2e 68 |A3),D7.;| point.h|
|000015a0| 0d 09 53 55 42 09 74 65 | 44 65 73 74 52 65 63 74 |..SUB.te|DestRect|
|000015b0| 2b 6c 65 66 74 28 41 33 | 29 2c 44 37 09 3b 20 72 |+left(A3|),D7.; r|
|000015c0| 65 6c 61 74 69 76 65 20 | 78 50 6f 73 69 74 69 6f |elative |xPositio|
|000015d0| 6e 0d 09 42 47 54 09 40 | 33 0d 09 4d 4f 56 45 09 |n..BGT.@|3..MOVE.|
|000015e0| 44 33 2c 44 30 0d 09 42 | 52 41 09 53 74 6f 70 48 |D3,D0..B|RA.StopH|
|000015f0| 54 0d 0d 40 33 09 4d 4f | 56 45 09 44 34 2c 44 36 |T..@3.MO|VE.D4,D6|
|00001600| 0d 09 53 55 42 09 44 33 | 2c 44 36 0d 09 43 4c 52 |..SUB.D3|,D6..CLR|
|00001610| 09 44 35 09 09 3b 20 66 | 6c 61 67 20 66 6f 72 20 |.D5..; f|lag for |
|00001620| 31 73 74 20 74 69 6d 65 | 20 74 68 72 75 20 6c 6f |1st time| thru lo|
|00001630| 6f 70 0d 6c 6f 6f 70 0d | 09 4d 4f 56 45 09 44 35 |op.loop.|.MOVE.D5|
|00001640| 2c 44 34 09 09 3b 20 73 | 61 76 65 20 68 69 67 68 |,D4..; s|ave high|
|00001650| 20 70 6f 73 69 74 69 6f | 6e 0d 09 43 4c 52 09 2d | positio|n..CLR.-|
|00001660| 28 53 50 29 0d 09 4d 4f | 56 45 2e 4c 09 41 32 2c |(SP)..MO|VE.L.A2,|
|00001670| 2d 28 53 50 29 09 09 3b | 20 74 65 54 65 78 74 48 |-(SP)..;| teTextH|
|00001680| 20 70 6f 69 6e 74 65 72 | 0d 09 4d 4f 56 45 09 44 | pointer|..MOVE.D|
|00001690| 33 2c 2d 28 53 50 29 09 | 09 3b 20 66 69 72 73 74 |3,-(SP).|.; first|
|000016a0| 43 68 61 72 0d 09 4d 4f | 56 45 09 44 36 2c 2d 28 |Char..MO|VE.D6,-(|
|000016b0| 53 50 29 0d 09 5f 54 65 | 78 74 57 69 64 74 68 0d |SP).._Te|xtWidth.|
|000016c0| 09 4d 4f 56 45 09 28 53 | 50 29 2b 2c 44 35 0d 09 |.MOVE.(S|P)+,D5..|
|000016d0| 43 4d 50 09 44 35 2c 44 | 37 0d 09 44 42 47 45 09 |CMP.D5,D|7..DBGE.|
|000016e0| 44 36 2c 6c 6f 6f 70 09 | 3b 20 64 72 6f 70 73 20 |D6,loop.|; drops |
|000016f0| 74 68 72 75 20 77 68 65 | 6e 20 44 35 20 3c 3d 20 |thru whe|n D5 <= |
|00001700| 44 37 20 3c 20 44 34 0d | 0d 09 41 44 44 09 44 33 |D7 < D4.|..ADD.D3|
|00001710| 2c 44 36 09 3b 20 63 6f | 6e 76 65 72 74 20 74 6f |,D6.; co|nvert to|
|00001720| 20 61 62 73 6f 6c 75 74 | 65 20 63 68 61 72 20 70 | absolut|e char p|
|00001730| 6f 73 69 74 69 6f 6e 0d | 09 4d 4f 56 45 09 44 36 |osition.|.MOVE.D6|
|00001740| 2c 44 30 0d 3b 20 69 66 | 20 3d 20 30 20 28 69 2e |,D0.; if| = 0 (i.|
|00001750| 65 2e 20 73 65 6c 50 6f | 69 6e 74 2e 68 20 3e 20 |e. selPo|int.h > |
|00001760| 65 6e 64 20 6f 66 20 6c | 69 6e 65 29 20 74 68 65 |end of l|ine) the|
|00001770| 6e 20 79 6f 75 27 72 65 | 20 64 6f 6e 65 0d 09 54 |n you're| done..T|
|00001780| 53 54 09 44 34 0d 09 42 | 45 51 09 53 74 6f 70 48 |ST.D4..B|EQ.StopH|
|00001790| 54 0d 09 53 55 42 09 44 | 37 2c 44 34 0d 09 53 55 |T..SUB.D|7,D4..SU|
|000017a0| 42 09 44 35 2c 44 37 0d | 09 43 4d 50 09 44 34 2c |B.D5,D7.|.CMP.D4,|
|000017b0| 44 37 0d 09 42 4c 45 09 | 53 74 6f 70 48 54 0d 09 |D7..BLE.|StopHT..|
|000017c0| 41 44 44 51 09 23 31 2c | 44 30 0d 0d 53 74 6f 70 |ADDQ.#1,|D0..Stop|
|000017d0| 48 54 0d 09 54 53 54 2e | 4c 09 44 36 09 09 3b 20 |HT..TST.|L.D6..; |
|000017e0| 72 65 73 74 6f 72 65 20 | 4c 6f 63 6b 20 42 69 74 |restore |Lock Bit|
|000017f0| 0d 09 42 4d 49 09 40 30 | 0d 09 4d 4f 56 45 2e 4c |..BMI.@0|..MOVE.L|
|00001800| 09 74 65 54 65 78 74 48 | 28 41 33 29 2c 41 32 0d |.teTextH|(A3),A2.|
|00001810| 09 42 43 4c 52 09 23 37 | 2c 28 41 32 29 09 09 3b |.BCLR.#7|,(A2)..;|
|00001820| 20 63 6c 65 61 72 20 4c | 6f 63 6b 20 62 69 74 0d | clear L|ock bit.|
|00001830| 0d 40 30 09 43 4d 50 09 | 44 33 2c 44 30 0d 09 53 |.@0.CMP.|D3,D0..S|
|00001840| 45 51 09 74 65 4c 66 74 | 43 6c 69 63 6b 28 41 33 |EQ.teLft|Click(A3|
|00001850| 29 09 09 3b 20 63 6c 69 | 63 6b 20 61 74 20 62 65 |)..; cli|ck at be|
|00001860| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 6c 69 6e 65 0d |ginning |of line.|
|00001870| 09 4d 4f 56 45 2e 4c 09 | 28 41 35 29 2c 41 30 0d |.MOVE.L.|(A5),A0.|
|00001880| 09 4d 4f 56 45 2e 4c 09 | 28 41 30 29 2c 41 30 09 |.MOVE.L.|(A0),A0.|
|00001890| 09 3b 20 74 68 65 50 6f | 72 74 0d 09 4d 4f 56 45 |.; thePo|rt..MOVE|
|000018a0| 4d 2e 4c 09 28 53 50 29 | 2b 2c 41 32 2f 44 34 2d |M.L.(SP)|+,A2/D4-|
|000018b0| 44 37 0d 09 52 54 53 0d | 0d 20 49 46 20 52 4f 4d |D7..RTS.|. IF ROM|
|000018c0| 31 32 38 4b 20 3c 3e 20 | 31 09 3b 20 61 73 73 65 |128K <> |1.; asse|
|000018d0| 6d 62 6c 65 20 69 66 20 | 31 32 38 2f 35 31 32 4b |mble if |128/512K|
|000018e0| 20 4d 61 63 0d 0d 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d | Mac..;-|--------|
|000018f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001910| 2d 2d 20 48 69 4c 69 74 | 65 20 2d 2d 2d 2d 2d 2d |-- HiLit|e ------|
|00001920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001940| 2d 2d 2d 0d 3b 20 6f 6e | 20 65 6e 74 72 79 3a 20 |---.; on| entry: |
|00001950| 09 73 65 65 20 61 62 6f | 76 65 0d 3b 20 6f 74 68 |.see abo|ve.; oth|
|00001960| 65 72 20 76 61 72 69 61 | 62 6c 65 73 3a 0d 3b 09 |er varia|bles:.;.|
|00001970| 44 35 3e 3e 09 6c 69 6e | 65 48 65 69 67 68 74 28 |D5>>.lin|eHeight(|
|00001980| 41 33 29 0d 3b 09 41 32 | 3e 3e 09 70 6f 69 6e 74 |A3).;.A2|>>.point|
|00001990| 65 72 20 74 6f 20 6c 69 | 6e 65 53 74 61 72 74 73 |er to li|neStarts|
|000019a0| 0d 3b 20 65 78 69 74 3a | 0d 3b 09 41 30 20 3d 20 |.; exit:|.;.A0 = |
|000019b0| 74 68 65 50 6f 72 74 20 | 6f 6e 20 65 78 69 74 20 |thePort |on exit |
|000019c0| 61 73 20 6d 61 6e 64 61 | 74 65 64 20 62 79 20 49 |as manda|ted by I|
|000019d0| 6e 73 69 64 65 20 4d 61 | 63 69 6e 74 6f 73 68 0d |nside Ma|cintosh.|
|000019e0| 3b 20 70 72 65 73 65 72 | 76 65 73 20 61 6c 6c 20 |; preser|ves all |
|000019f0| 62 75 74 20 41 30 2c 44 | 30 0d 3b 2d 2d 2d 2d 2d |but A0,D|0.;-----|
|00001a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 0d 48 69 4c 69 |--------|--..HiLi|
|00001a60| 74 65 0d 09 4d 4f 56 45 | 4d 2e 4c 09 41 32 2f 44 |te..MOVE|M.L.A2/D|
|00001a70| 33 2d 44 35 2c 2d 28 53 | 50 29 0d 09 43 4d 50 09 |3-D5,-(S|P)..CMP.|
|00001a80| 44 33 2c 44 34 0d 09 42 | 45 51 09 53 74 6f 70 48 |D3,D4..B|EQ.StopH|
|00001a90| 4c 0d 09 42 47 54 09 40 | 30 0d 09 45 58 47 09 44 |L..BGT.@|0..EXG.D|
|00001aa0| 33 2c 44 34 0d 0d 40 30 | 09 4c 45 41 09 74 65 4c |3,D4..@0|.LEA.teL|
|00001ab0| 69 6e 65 73 28 41 33 29 | 2c 41 32 0d 09 4d 4f 56 |ines(A3)|,A2..MOV|
|00001ac0| 45 2e 4c 09 41 32 2c 44 | 30 0d 40 31 09 43 4d 50 |E.L.A2,D|0.@1.CMP|
|00001ad0| 09 32 28 41 32 29 2c 44 | 33 0d 09 42 4c 54 09 40 |.2(A2),D|3..BLT.@|
|00001ae0| 32 0d 09 41 44 44 51 09 | 23 32 2c 41 32 0d 09 42 |2..ADDQ.|#2,A2..B|
|00001af0| 52 41 09 40 31 0d 0d 40 | 32 09 4d 4f 56 45 2e 4c |RA.@1..@|2.MOVE.L|
|00001b00| 09 41 32 2c 44 31 09 3b | 20 28 41 32 29 20 3c 3d |.A2,D1.;| (A2) <=|
|00001b10| 20 44 33 20 3c 20 32 28 | 41 32 29 0d 09 53 55 42 | D3 < 2(|A2)..SUB|
|00001b20| 09 44 30 2c 44 31 0d 09 | 3b 20 44 31 20 69 73 20 |.D0,D1..|; D1 is |
|00001b30| 6f 66 66 73 65 74 20 6f | 66 20 6c 69 6e 65 20 63 |offset o|f line c|
|00001b40| 6f 6e 74 61 69 6e 69 6e | 67 20 44 33 20 66 72 6f |ontainin|g D3 fro|
|00001b50| 6d 20 6c 69 6e 65 53 74 | 61 72 74 73 0d 09 4c 53 |m lineSt|arts..LS|
|00001b60| 52 09 23 31 2c 44 31 09 | 3b 20 64 69 76 69 64 65 |R.#1,D1.|; divide|
|00001b70| 20 62 79 20 32 20 74 6f | 20 67 69 76 65 20 23 20 | by 2 to| give # |
|00001b80| 6c 69 6e 65 73 0d 09 4d | 4f 56 45 09 74 65 4c 69 |lines..M|OVE.teLi|
|00001b90| 6e 65 48 69 74 65 28 41 | 33 29 2c 44 35 0d 09 4d |neHite(A|3),D5..M|
|00001ba0| 55 4c 55 09 44 35 2c 44 | 31 0d 0d 09 4d 4f 56 45 |ULU.D5,D|1...MOVE|
|00001bb0| 2e 4c 09 74 65 44 65 73 | 74 52 65 63 74 28 41 33 |.L.teDes|tRect(A3|
|00001bc0| 29 2c 74 65 53 65 6c 52 | 65 63 74 28 41 33 29 0d |),teSelR|ect(A3).|
|00001bd0| 09 41 44 44 09 44 31 2c | 74 65 53 65 6c 52 65 63 |.ADD.D1,|teSelRec|
|00001be0| 74 28 41 33 29 09 09 3b | 54 4f 50 20 6f 66 20 31 |t(A3)..;|TOP of 1|
|00001bf0| 73 74 20 72 65 63 74 0d | 09 4d 4f 56 45 09 74 65 |st rect.|.MOVE.te|
|00001c00| 53 65 6c 52 65 63 74 28 | 41 33 29 2c 74 65 53 65 |SelRect(|A3),teSe|
|00001c10| 6c 52 65 63 74 2b 62 6f | 74 74 6f 6d 28 41 33 29 |lRect+bo|ttom(A3)|
|00001c20| 0d 09 41 44 44 09 44 35 | 2c 74 65 53 65 6c 52 65 |..ADD.D5|,teSelRe|
|00001c30| 63 74 2b 62 6f 74 74 6f | 6d 28 41 33 29 09 09 3b |ct+botto|m(A3)..;|
|00001c40| 20 42 4f 54 54 4f 4d 0d | 09 4d 4f 56 45 09 23 24 | BOTTOM.|.MOVE.#$|
|00001c50| 37 46 46 45 2c 74 65 53 | 65 6c 52 65 63 74 2b 72 |7FFE,teS|elRect+r|
|00001c60| 69 67 68 74 28 41 33 29 | 09 3b 20 52 49 47 48 54 |ight(A3)|.; RIGHT|
|00001c70| 0d 0d 09 43 4c 52 09 2d | 28 53 50 29 0d 09 4d 4f |...CLR.-|(SP)..MO|
|00001c80| 56 45 2e 4c 09 74 65 54 | 65 78 74 48 28 41 33 29 |VE.L.teT|extH(A3)|
|00001c90| 2c 41 30 0d 09 4d 4f 56 | 45 2e 4c 09 28 41 30 29 |,A0..MOV|E.L.(A0)|
|00001ca0| 2c 2d 28 53 50 29 0d 09 | 4d 4f 56 45 09 28 41 32 |,-(SP)..|MOVE.(A2|
|00001cb0| 29 2c 44 30 0d 09 4d 4f | 56 45 09 44 30 2c 2d 28 |),D0..MO|VE.D0,-(|
|00001cc0| 53 50 29 0d 09 4d 4f 56 | 45 09 44 33 2c 2d 28 53 |SP)..MOV|E.D3,-(S|
|00001cd0| 50 29 0d 09 53 55 42 09 | 44 30 2c 28 53 50 29 0d |P)..SUB.|D0,(SP).|
|00001ce0| 09 5f 54 65 78 74 57 69 | 64 74 68 0d 09 4d 4f 56 |._TextWi|dth..MOV|
|00001cf0| 45 09 28 53 50 29 2b 2c | 44 30 0d 09 41 44 44 09 |E.(SP)+,|D0..ADD.|
|00001d00| 44 30 2c 74 65 53 65 6c | 52 65 63 74 2b 6c 65 66 |D0,teSel|Rect+lef|
|00001d10| 74 28 41 33 29 09 3b 20 | 4c 45 46 54 20 6f 66 20 |t(A3).; |LEFT of |
|00001d20| 31 73 74 20 72 65 63 74 | 0d 09 43 4d 50 09 32 28 |1st rect|..CMP.2(|
|00001d30| 41 32 29 2c 44 34 0d 09 | 42 4c 45 09 4c 61 73 74 |A2),D4..|BLE.Last|
|00001d40| 52 65 63 74 0d 09 4a 53 | 52 09 53 75 62 48 69 6c |Rect..JS|R.SubHil|
|00001d50| 69 74 65 09 09 3b 20 49 | 4e 56 45 52 54 20 31 73 |ite..; I|NVERT 1s|
|00001d60| 74 20 72 65 63 74 0d 3b | 20 4c 45 46 54 20 6f 66 |t rect.;| LEFT of|
|00001d70| 20 73 75 62 73 65 71 75 | 65 6e 74 20 72 65 63 74 | subsequ|ent rect|
|00001d80| 73 0d 09 4d 4f 56 45 09 | 23 24 38 30 30 32 2c 74 |s..MOVE.|#$8002,t|
|00001d90| 65 53 65 6c 52 65 63 74 | 2b 6c 65 66 74 28 41 33 |eSelRect|+left(A3|
|00001da0| 29 0d 0d 40 35 09 41 44 | 44 09 44 35 2c 74 65 53 |)..@5.AD|D.D5,teS|
|00001db0| 65 6c 52 65 63 74 28 41 | 33 29 09 3b 20 54 4f 50 |elRect(A|3).; TOP|
|00001dc0| 20 6f 66 20 73 75 62 73 | 65 71 75 65 6e 74 20 72 | of subs|equent r|
|00001dd0| 65 63 74 73 0d 09 41 44 | 44 09 44 35 2c 74 65 53 |ects..AD|D.D5,teS|
|00001de0| 65 6c 52 65 63 74 2b 62 | 6f 74 74 6f 6d 28 41 33 |elRect+b|ottom(A3|
|00001df0| 29 09 3b 20 42 4f 54 54 | 4f 4d 20 0d 09 41 44 44 |).; BOTT|OM ..ADD|
|00001e00| 51 09 23 32 2c 41 32 0d | 09 43 4d 50 09 32 28 41 |Q.#2,A2.|.CMP.2(A|
|00001e10| 32 29 2c 44 34 0d 09 42 | 4c 45 09 4c 61 73 74 52 |2),D4..B|LE.LastR|
|00001e20| 65 63 74 0d 09 4a 53 52 | 09 53 75 62 48 69 6c 69 |ect..JSR|.SubHili|
|00001e30| 74 65 09 3b 20 49 4e 56 | 45 52 54 20 6d 69 64 64 |te.; INV|ERT midd|
|00001e40| 6c 65 20 72 65 63 74 73 | 0d 09 42 52 41 09 40 35 |le rects|..BRA.@5|
|00001e50| 0d 0d 4c 61 73 74 52 65 | 63 74 0d 09 42 45 51 09 |..LastRe|ct..BEQ.|
|00001e60| 40 30 0d 09 43 4c 52 09 | 2d 28 53 50 29 0d 09 4d |@0..CLR.|-(SP)..M|
|00001e70| 4f 56 45 2e 4c 09 74 65 | 54 65 78 74 48 28 41 33 |OVE.L.te|TextH(A3|
|00001e80| 29 2c 41 30 0d 09 4d 4f | 56 45 2e 4c 09 28 41 30 |),A0..MO|VE.L.(A0|
|00001e90| 29 2c 2d 28 53 50 29 0d | 09 4d 4f 56 45 09 28 41 |),-(SP).|.MOVE.(A|
|00001ea0| 32 29 2c 44 30 0d 09 4d | 4f 56 45 09 44 30 2c 2d |2),D0..M|OVE.D0,-|
|00001eb0| 28 53 50 29 0d 09 4d 4f | 56 45 09 44 34 2c 2d 28 |(SP)..MO|VE.D4,-(|
|00001ec0| 53 50 29 0d 09 53 55 42 | 09 44 30 2c 28 53 50 29 |SP)..SUB|.D0,(SP)|
|00001ed0| 0d 09 5f 54 65 78 74 57 | 69 64 74 68 0d 09 4d 4f |.._TextW|idth..MO|
|00001ee0| 56 45 09 28 53 50 29 2b | 2c 44 30 0d 09 41 44 44 |VE.(SP)+|,D0..ADD|
|00001ef0| 09 74 65 44 65 73 74 52 | 65 63 74 2b 6c 65 66 74 |.teDestR|ect+left|
|00001f00| 28 41 33 29 2c 44 30 0d | 09 4d 4f 56 45 09 44 30 |(A3),D0.|.MOVE.D0|
|00001f10| 2c 74 65 53 65 6c 52 65 | 63 74 2b 72 69 67 68 74 |,teSelRe|ct+right|
|00001f20| 28 41 33 29 09 3b 20 52 | 49 47 48 54 20 6f 66 20 |(A3).; R|IGHT of |
|00001f30| 6c 61 73 74 20 72 65 63 | 74 0d 40 30 09 4a 53 52 |last rec|t.@0.JSR|
|00001f40| 09 53 75 62 48 69 6c 69 | 74 65 09 09 09 3b 20 49 |.SubHili|te...; I|
|00001f50| 4e 56 45 52 54 20 6c 61 | 73 74 20 72 65 63 74 0d |NVERT la|st rect.|
|00001f60| 0d 53 74 6f 70 48 4c 0d | 09 4d 4f 56 45 2e 4c 09 |.StopHL.|.MOVE.L.|
|00001f70| 28 41 35 29 2c 41 30 0d | 09 4d 4f 56 45 2e 4c 09 |(A5),A0.|.MOVE.L.|
|00001f80| 28 41 30 29 2c 41 30 09 | 09 3b 20 74 68 65 50 6f |(A0),A0.|.; thePo|
|00001f90| 72 74 0d 09 4d 4f 56 45 | 4d 2e 4c 09 28 53 50 29 |rt..MOVE|M.L.(SP)|
|00001fa0| 2b 2c 41 32 2f 44 33 2d | 44 35 0d 09 52 54 53 0d |+,A2/D3-|D5..RTS.|
|00001fb0| 0d 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00001fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 73 75 62 48 69 6c |--------|- subHil|
|00001fe0| 69 74 65 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ite ----|--------|
|00001ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 3b 20 |--------|-----.; |
|00002010| 69 66 20 68 69 48 6f 6f | 6b 28 41 33 29 20 ad 20 |if hiHoo|k(A3) . |
|00002020| 30 2c 20 6a 75 6d 70 73 | 20 74 6f 20 69 74 2e 20 |0, jumps| to it. |
|00002030| 20 4f 74 68 65 72 77 69 | 73 65 20 69 6e 76 65 72 | Otherwi|se inver|
|00002040| 74 73 20 73 65 6c 52 65 | 63 74 28 41 33 29 0d 3b |ts selRe|ct(A3).;|
|00002050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000020b0| 0d 73 75 62 48 69 6c 69 | 74 65 0d 09 50 45 41 09 |.subHili|te..PEA.|
|000020c0| 74 65 53 65 6c 52 65 63 | 74 28 41 33 29 0d 09 4d |teSelRec|t(A3)..M|
|000020d0| 4f 56 45 2e 4c 09 74 65 | 48 69 48 6f 6f 6b 28 41 |OVE.L.te|HiHook(A|
|000020e0| 33 29 2c 41 30 0d 09 43 | 4d 50 2e 4c 09 23 30 2c |3),A0..C|MP.L.#0,|
|000020f0| 41 30 0d 09 42 45 51 09 | 40 30 0d 09 4a 4d 50 09 |A0..BEQ.|@0..JMP.|
|00002100| 28 41 30 29 0d 40 30 09 | 5f 49 6e 76 65 72 52 65 |(A0).@0.|_InverRe|
|00002110| 63 74 0d 09 52 54 53 0d | 0d 20 45 4e 44 49 46 09 |ct..RTS.|. ENDIF.|
|00002120| 3b 20 63 6f 6e 64 69 74 | 69 6f 6e 61 6c 20 61 73 |; condit|ional as|
|00002130| 73 65 6d 62 6c 79 20 6f | 66 20 48 69 4c 69 74 65 |sembly o|f HiLite|
|00002140| 20 72 6f 75 74 69 6e 65 | 0d 0d 3b 2d 2d 2d 2d 2d | routine|..;-----|
|00002150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002170| 2d 2d 20 74 61 62 6c 69 | 6e 65 53 74 61 72 74 20 |-- tabli|neStart |
|00002180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021a0| 2d 2d 2d 2d 2d 0d 3b 20 | 6f 6e 20 65 6e 74 72 79 |-----.; |on entry|
|000021b0| 3a 0d 3b 09 41 33 3e 3e | 09 70 6f 69 6e 74 65 72 |:.;.A3>>|.pointer|
|000021c0| 20 74 6f 20 6c 6f 63 6b | 65 64 20 65 64 69 74 20 | to lock|ed edit |
|000021d0| 72 65 63 6f 72 64 0d 3b | 09 41 34 2c 41 36 3e 3e |record.;|.A4,A6>>|
|000021e0| 20 75 73 65 64 20 62 79 | 20 73 75 62 72 6f 75 74 | used by| subrout|
|000021f0| 69 6e 65 73 20 28 64 6f | 6e 27 74 20 63 68 61 6e |ines (do|n't chan|
|00002200| 67 65 29 0d 3b 09 44 36 | 3e 3e 09 63 68 61 72 20 |ge).;.D6|>>.char |
|00002210| 70 6f 73 69 74 69 6f 6e | 20 28 75 73 75 61 6c 6c |position| (usuall|
|00002220| 79 20 6c 69 6e 65 53 74 | 61 72 74 29 0d 3b 20 6f |y lineSt|art).; o|
|00002230| 6e 20 65 78 69 74 3a 0d | 3b 09 44 30 3e 3e 09 6e |n exit:.|;.D0>>.n|
|00002240| 65 78 74 20 6c 69 6e 65 | 53 74 61 72 74 20 3e 20 |ext line|Start > |
|00002250| 44 36 0d 3b 0d 3b 6f 74 | 68 65 72 73 20 76 61 72 |D6.;.;ot|hers var|
|00002260| 69 61 62 6c 65 73 3a 0d | 3b 09 41 32 3e 3e 09 23 |iables:.|;.A2>>.#|
|00002270| 20 77 6f 72 64 73 20 69 | 6e 20 6c 69 6e 65 0d 3b | words i|n line.;|
|00002280| 09 44 35 3e 3e 09 70 69 | 78 65 6c 20 6c 65 6e 67 |.D5>>.pi|xel leng|
|00002290| 74 68 20 6f 66 20 6c 61 | 73 74 20 74 61 62 0d 3b |th of la|st tab.;|
|000022a0| 09 44 36 3e 3e 09 31 73 | 74 20 63 68 61 72 20 6f |.D6>>.1s|t char o|
|000022b0| 66 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 0d 3b |f curren|t line.;|
|000022c0| 09 44 37 3e 3e 09 6c 61 | 73 74 20 63 68 61 72 20 |.D7>>.la|st char |
|000022d0| 6f 66 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 0d |of curre|nt line.|
|000022e0| 3b 20 73 75 62 72 6f 75 | 74 69 6e 65 73 3a 0d 3b |; subrou|tines:.;|
|000022f0| 09 69 6e 20 24 37 46 34 | 09 72 65 74 75 72 6e 73 |.in $7F4|.returns|
|00002300| 20 44 30 20 3d 20 6c 65 | 6e 67 74 68 20 6f 66 20 | D0 = le|ngth of |
|00002310| 74 65 78 74 20 66 72 6f | 6d 20 44 36 20 75 70 20 |text fro|m D6 up |
|00002320| 74 6f 20 6c 61 73 74 20 | 0d 3b 09 09 6e 6f 6e 57 |to last |.;..nonW|
|00002330| 6f 72 64 42 72 65 61 6b | 20 63 68 61 72 20 3c 20 |ordBreak| char < |
|00002340| 44 37 0d 3b 09 69 6e 20 | 24 37 46 38 09 72 65 74 |D7.;.in |$7F8.ret|
|00002350| 75 72 6e 73 20 44 31 20 | 3d 20 63 68 61 72 20 70 |urns D1 |= char p|
|00002360| 6f 73 69 74 69 6f 6e 20 | 62 65 66 6f 72 65 20 31 |osition |before 1|
|00002370| 73 74 20 0d 3b 09 09 77 | 6f 72 64 42 72 65 61 6b |st .;..w|ordBreak|
|00002380| 20 63 68 61 72 20 3e 20 | 44 30 0d 3b 2d 2d 2d 2d | char > |D0.;----|
|00002390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 0d 74 61 62 |--------|---..tab|
|000023f0| 6c 69 6e 65 53 74 61 72 | 74 0d 09 54 53 54 2e 4c |lineStar|t..TST.L|
|00002400| 09 6e 6f 77 54 61 62 73 | 28 41 35 29 09 09 3b 20 |.nowTabs|(A5)..; |
|00002410| 69 66 20 6e 6f 74 20 61 | 20 74 61 62 20 57 69 6e |if not a| tab Win|
|00002420| 64 6f 77 0d 09 42 4e 45 | 09 40 30 09 09 3b 65 78 |dow..BNE|.@0..;ex|
|00002430| 65 63 75 74 65 20 64 65 | 66 61 75 6c 74 20 72 6f |ecute de|fault ro|
|00002440| 75 74 69 6e 65 0d 09 4d | 4f 56 45 2e 4c 09 73 74 |utine..M|OVE.L.st|
|00002450| 64 4c 69 6e 65 53 74 61 | 72 74 28 41 35 29 2c 41 |dLineSta|rt(A5),A|
|00002460| 30 0d 09 4a 4d 50 09 28 | 41 30 29 0d 0d 40 30 09 |0..JMP.(|A0)..@0.|
|00002470| 4d 4f 56 45 4d 2e 4c 09 | 44 31 2d 44 37 2f 41 31 |MOVEM.L.|D1-D7/A1|
|00002480| 2f 41 32 2c 2d 28 53 50 | 29 0d 09 4d 4f 56 45 09 |/A2,-(SP|)..MOVE.|
|00002490| 74 65 44 65 73 74 52 65 | 63 74 2b 72 69 67 68 74 |teDestRe|ct+right|
|000024a0| 28 41 33 29 2c 44 34 0d | 09 53 55 42 09 74 65 44 |(A3),D4.|.SUB.teD|
|000024b0| 65 73 74 52 65 63 74 2b | 6c 65 66 74 28 41 33 29 |estRect+|left(A3)|
|000024c0| 2c 44 34 0d 09 53 55 42 | 51 09 23 31 2c 44 34 0d |,D4..SUB|Q.#1,D4.|
|000024d0| 09 53 55 42 2e 4c 09 41 | 32 2c 41 32 09 3b 20 63 |.SUB.L.A|2,A2.; c|
|000024e0| 6c 65 61 72 20 41 32 20 | 74 6f 20 75 73 65 20 61 |lear A2 |to use a|
|000024f0| 73 20 63 6f 75 6e 74 65 | 72 0d 09 4d 4f 56 45 09 |s counte|r..MOVE.|
|00002500| 44 36 2c 44 37 0d 0d 4c | 53 6c 6f 6f 70 0d 09 4d |D6,D7..L|Sloop..M|
|00002510| 4f 56 45 09 44 37 2c 44 | 30 0d 09 4d 4f 56 45 51 |OVE.D7,D|0..MOVEQ|
|00002520| 09 23 24 43 2c 44 32 0d | 09 4d 4f 56 45 2e 4c 09 |.#$C,D2.|.MOVE.L.|
|00002530| 24 37 46 38 2c 41 30 09 | 3b 20 6a 75 6d 70 73 20 |$7F8,A0.|; jumps |
|00002540| 74 6f 20 72 6f 75 74 69 | 6e 65 0d 09 4a 53 52 09 |to routi|ne..JSR.|
|00002550| 28 41 30 29 09 3b 77 68 | 6f 73 65 20 61 64 64 72 |(A0).;wh|ose addr|
|00002560| 65 73 73 20 69 73 20 69 | 6e 20 67 6c 6f 62 61 6c |ess is i|n global|
|00002570| 20 37 46 38 0d 09 4d 4f | 56 45 09 44 31 2c 44 37 | 7F8..MO|VE.D1,D7|
|00002580| 09 3b 20 69 6e 63 72 65 | 6d 65 6e 74 20 44 37 20 |.; incre|ment D7 |
|00002590| 62 79 20 6f 6e 65 20 77 | 6f 72 64 0d 09 54 53 54 |by one w|ord..TST|
|000025a0| 2e 42 09 74 65 43 72 4f | 6e 6c 79 28 41 33 29 0d |.B.teCrO|nly(A3).|
|000025b0| 09 42 4e 45 09 40 30 0d | 09 4d 4f 56 45 4d 2e 4c |.BNE.@0.|.MOVEM.L|
|000025c0| 09 44 36 2f 44 37 2c 2d | 28 53 50 29 0d 09 4d 4f |.D6/D7,-|(SP)..MO|
|000025d0| 56 45 2e 4c 09 24 37 46 | 34 2c 41 30 09 09 3b 20 |VE.L.$7F|4,A0..; |
|000025e0| 6a 75 6d 70 73 20 74 6f | 20 72 6f 75 74 69 6e 65 |jumps to| routine|
|000025f0| 20 77 68 6f 73 65 0d 09 | 4a 53 52 09 28 41 30 29 | whose..|JSR.(A0)|
|00002600| 09 09 3b 61 64 64 72 65 | 73 73 20 69 73 20 69 6e |..;addre|ss is in|
|00002610| 20 67 6c 6f 62 61 6c 20 | 37 46 34 0d 09 4d 4f 56 | global |7F4..MOV|
|00002620| 45 4d 2e 4c 09 28 53 50 | 29 2b 2c 44 36 2f 44 37 |EM.L.(SP|)+,D6/D7|
|00002630| 0d 09 43 4d 50 09 44 34 | 2c 44 30 09 3b 20 69 66 |..CMP.D4|,D0.; if|
|00002640| 20 b3 20 77 69 64 74 68 | 20 64 65 73 74 52 65 63 | . width| destRec|
|00002650| 74 2c 20 70 75 74 20 6c | 69 6e 65 53 74 61 72 74 |t, put l|ineStart|
|00002660| 0d 09 42 47 45 09 40 32 | 0d 40 30 09 4d 4f 56 45 |..BGE.@2|.@0.MOVE|
|00002670| 09 44 37 2c 44 35 0d 09 | 41 44 44 51 09 23 31 2c |.D7,D5..|ADDQ.#1,|
|00002680| 41 32 09 3b 20 69 6e 63 | 72 65 6d 65 6e 74 20 77 |A2.; inc|rement w|
|00002690| 6f 72 64 20 63 6f 75 6e | 74 65 72 0d 09 43 4d 50 |ord coun|ter..CMP|
|000026a0| 09 74 65 4c 65 6e 67 74 | 68 28 41 33 29 2c 44 37 |.teLengt|h(A3),D7|
|000026b0| 0d 09 42 45 51 09 65 6e | 64 4c 53 09 3b 20 69 66 |..BEQ.en|dLS.; if|
|000026c0| 20 61 74 20 65 6e 64 20 | 6f 66 20 74 65 78 74 2c | at end |of text,|
|000026d0| 20 70 75 74 20 69 6e 20 | 61 20 6c 69 6e 65 53 74 | put in |a lineSt|
|000026e0| 61 72 74 0d 09 4d 4f 56 | 45 2e 4c 09 74 65 54 65 |art..MOV|E.L.teTe|
|000026f0| 78 74 48 28 41 33 29 2c | 41 30 0d 09 4d 4f 56 45 |xtH(A3),|A0..MOVE|
|00002700| 2e 4c 09 28 41 30 29 2c | 41 30 0d 09 41 4e 44 2e |.L.(A0),|A0..AND.|
|00002710| 4c 09 23 24 46 46 46 46 | 2c 44 37 0d 09 43 4d 50 |L.#$FFFF|,D7..CMP|
|00002720| 2e 42 09 23 24 44 2c 28 | 41 30 2c 44 37 2e 4c 29 |.B.#$D,(|A0,D7.L)|
|00002730| 09 3b 20 69 66 20 3d 20 | 43 52 2c 20 70 75 74 20 |.; if = |CR, put |
|00002740| 69 6e 20 61 20 6c 69 6e | 65 53 74 61 72 74 0d 09 |in a lin|eStart..|
|00002750| 42 45 51 09 40 32 0d 09 | 4a 53 52 09 74 73 74 54 |BEQ.@2..|JSR.tstT|
|00002760| 61 62 09 09 3b 20 69 66 | 20 3d 20 70 73 65 75 64 |ab..; if| = pseud|
|00002770| 6f 43 52 2c 20 6c 69 6e | 65 53 74 61 72 74 0d 09 |oCR, lin|eStart..|
|00002780| 42 45 51 09 40 32 0d 09 | 41 44 44 51 09 23 31 2c |BEQ.@2..|ADDQ.#1,|
|00002790| 44 37 09 09 3b 20 6f 74 | 68 65 72 77 69 73 65 20 |D7..; ot|herwise |
|000027a0| 6c 6f 6f 6b 20 61 74 20 | 6e 65 78 74 20 63 68 61 |look at |next cha|
|000027b0| 72 0d 09 42 52 41 09 4c | 53 6c 6f 6f 70 0d 40 32 |r..BRA.L|Sloop.@2|
|000027c0| 09 4d 4f 56 45 09 41 32 | 2c 44 30 09 3b 20 69 66 |.MOVE.A2|,D0.; if|
|000027d0| 20 3e 20 74 68 61 6e 20 | 31 20 77 6f 72 64 20 66 | > than |1 word f|
|000027e0| 69 74 73 20 69 6e 20 64 | 65 73 74 52 65 63 74 0d |its in d|estRect.|
|000027f0| 09 42 45 51 09 6f 6e 65 | 57 6f 72 64 09 09 3b 20 |.BEQ.one|Word..; |
|00002800| 62 72 61 6e 63 68 20 74 | 6f 20 66 69 74 74 69 6e |branch t|o fittin|
|00002810| 67 20 72 6f 75 74 69 6e | 65 0d 09 41 44 44 51 09 |g routin|e..ADDQ.|
|00002820| 23 31 2c 44 35 0d 0d 65 | 6e 64 4c 53 0d 09 4d 4f |#1,D5..e|ndLS..MO|
|00002830| 56 45 09 44 35 2c 44 30 | 0d 09 4d 4f 56 45 4d 2e |VE.D5,D0|..MOVEM.|
|00002840| 4c 09 28 53 50 29 2b 2c | 44 31 2d 44 37 2f 41 31 |L.(SP)+,|D1-D7/A1|
|00002850| 2f 41 32 0d 09 52 54 53 | 0d 6f 6e 65 57 6f 72 64 |/A2..RTS|.oneWord|
|00002860| 09 3b 20 69 66 20 6f 6e | 65 20 77 6f 72 64 20 3e |.; if on|e word >|
|00002870| 20 74 68 61 6e 20 74 68 | 65 20 6c 69 6e 65 2c 20 | than th|e line, |
|00002880| 62 72 65 61 6b 20 69 74 | 20 61 6e 79 77 61 79 0d |break it| anyway.|
|00002890| 09 53 55 42 51 09 23 31 | 2c 44 37 0d 09 4d 4f 56 |.SUBQ.#1|,D7..MOV|
|000028a0| 45 4d 2e 4c 09 44 36 2f | 44 37 2c 2d 28 53 50 29 |EM.L.D6/|D7,-(SP)|
|000028b0| 0d 09 4d 4f 56 45 2e 4c | 09 24 37 46 34 2c 41 30 |..MOVE.L|.$7F4,A0|
|000028c0| 09 09 3b 20 6a 75 6d 70 | 73 20 74 6f 20 72 6f 75 |..; jump|s to rou|
|000028d0| 74 69 6e 65 0d 09 4a 53 | 52 09 28 41 30 29 09 3b |tine..JS|R.(A0).;|
|000028e0| 20 77 68 6f 73 65 20 61 | 64 64 72 65 73 73 20 69 | whose a|ddress i|
|000028f0| 73 20 69 6e 20 67 6c 6f | 62 61 6c 20 37 46 34 0d |s in glo|bal 7F4.|
|00002900| 09 4d 4f 56 45 4d 2e 4c | 09 28 53 50 29 2b 2c 44 |.MOVEM.L|.(SP)+,D|
|00002910| 36 2f 44 37 0d 09 43 4d | 50 09 44 30 2c 44 34 09 |6/D7..CM|P.D0,D4.|
|00002920| 3b 20 74 61 6b 65 20 6f | 66 66 20 31 20 63 68 61 |; take o|ff 1 cha|
|00002930| 72 20 61 74 20 61 20 74 | 69 6d 65 20 75 6e 74 69 |r at a t|ime unti|
|00002940| 6c 0d 09 42 4c 45 09 6f | 6e 65 57 6f 72 64 09 3b |l..BLE.o|neWord.;|
|00002950| 77 6f 72 64 20 66 72 61 | 67 6d 65 6e 74 20 66 69 |word fra|gment fi|
|00002960| 74 73 20 69 6e 20 64 65 | 73 74 52 65 63 74 0d 09 |ts in de|stRect..|
|00002970| 4d 4f 56 45 09 44 37 2c | 44 35 0d 09 42 52 41 09 |MOVE.D7,|D5..BRA.|
|00002980| 65 6e 64 4c 53 0d 0d 3b | 2d 2d 2d 2d 2d 2d 2d 2d |endLS..;|--------|
|00002990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 74 |--------|------ t|
|000029b0| 61 62 54 78 4d 65 61 73 | 20 2d 2d 2d 2d 2d 2d 2d |abTxMeas| -------|
|000029c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029e0| 0d 3b 0d 3b 46 55 4e 43 | 54 49 4f 4e 20 74 61 62 |.;.;FUNC|TION tab|
|000029f0| 54 78 4d 65 61 73 28 62 | 79 74 65 43 6f 75 6e 74 |TxMeas(b|yteCount|
|00002a00| 3a 20 69 6e 74 65 67 65 | 72 3b 20 74 65 78 74 41 |: intege|r; textA|
|00002a10| 64 64 72 3a 20 50 74 72 | 3b 20 56 41 52 20 0d 3b |ddr: Ptr|; VAR .;|
|00002a20| 09 6e 75 6d 65 72 2c 64 | 65 6e 6f 6d 3a 20 50 6f |.numer,d|enom: Po|
|00002a30| 69 6e 74 3b 20 56 41 52 | 20 69 6e 66 6f 3a 20 46 |int; VAR| info: F|
|00002a40| 6f 6e 74 49 6e 66 6f 29 | 3a 20 69 6e 74 65 67 65 |ontInfo)|: intege|
|00002a50| 72 3b 0d 3b 0d 3b 09 43 | 4c 52 09 2d 28 53 50 29 |r;.;.;.C|LR.-(SP)|
|00002a60| 09 09 32 32 2b 32 34 09 | 72 6f 6f 6d 20 66 6f 72 |..22+24.|room for|
|00002a70| 20 72 65 73 75 6c 74 0d | 3b 09 4d 4f 56 45 09 62 | result.|;.MOVE.b|
|00002a80| 79 74 65 43 6f 75 6e 74 | 2c 2d 28 53 50 29 09 32 |yteCount|,-(SP).2|
|00002a90| 30 2b 32 34 0d 3b 09 50 | 45 41 09 74 65 78 74 09 |0+24.;.P|EA.text.|
|00002aa0| 09 31 36 2b 32 34 0d 3b | 09 50 45 41 09 6e 75 6d |.16+24.;|.PEA.num|
|00002ab0| 65 72 2c 2d 28 53 50 29 | 09 09 31 32 2b 32 34 0d |er,-(SP)|..12+24.|
|00002ac0| 3b 09 50 45 41 09 64 65 | 6e 6f 6d 2c 2d 28 53 50 |;.PEA.de|nom,-(SP|
|00002ad0| 29 09 09 20 38 2b 32 34 | 0d 3b 09 50 45 41 09 66 |).. 8+24|.;.PEA.f|
|00002ae0| 6f 6e 74 69 6e 66 6f 09 | 09 20 34 2b 32 34 0d 3b |ontinfo.|. 4+24.;|
|00002af0| 09 4a 53 52 09 74 61 62 | 54 78 4d 65 61 73 0d 3b |.JSR.tab|TxMeas.;|
|00002b00| 0d 3b 09 41 32 3e 3e 09 | 70 74 72 20 74 6f 20 63 |.;.A2>>.|ptr to c|
|00002b10| 75 72 72 65 6e 74 20 63 | 68 61 72 0d 3b 09 41 33 |urrent c|har.;.A3|
|00002b20| 3e 3e 09 70 74 72 20 74 | 6f 20 63 68 61 72 20 72 |>>.ptr t|o char r|
|00002b30| 69 67 68 74 20 61 66 74 | 65 72 20 6c 61 73 74 20 |ight aft|er last |
|00002b40| 43 52 20 6f 72 20 54 41 | 42 0d 3b 09 44 33 3e 3e |CR or TA|B.;.D3>>|
|00002b50| 09 74 61 62 57 69 64 74 | 68 0d 3b 09 44 34 3e 3e |.tabWidt|h.;.D4>>|
|00002b60| 09 63 6f 75 6e 74 65 72 | 20 6f 66 20 61 6c 6c 20 |.counter| of all |
|00002b70| 63 68 61 72 0d 3b 09 44 | 35 3e 3e 09 20 74 65 78 |char.;.D|5>>. tex|
|00002b80| 74 77 69 64 74 68 20 20 | 66 72 6f 6d 20 6c 61 73 |twidth  |from las|
|00002b90| 74 20 43 52 20 74 6f 20 | 70 72 65 73 65 6e 74 0d |t CR to |present.|
|00002ba0| 3b 09 09 54 41 42 20 28 | 6e 6f 74 20 69 6e 63 6c |;..TAB (|not incl|
|00002bb0| 75 73 69 76 65 29 0d 3b | 09 44 36 3e 3e 09 23 20 |usive).;|.D6>>.# |
|00002bc0| 6f 66 20 63 68 61 72 20 | 73 69 6e 63 65 20 6c 61 |of char |since la|
|00002bd0| 73 74 20 43 52 20 6f 72 | 20 54 41 42 20 28 6e 6f |st CR or| TAB (no|
|00002be0| 74 20 69 6e 63 6c 75 73 | 69 76 65 29 0d 3b 09 44 |t inclus|ive).;.D|
|00002bf0| 37 3e 3e 09 6c 65 6e 67 | 74 68 20 6f 66 20 61 6c |7>>.leng|th of al|
|00002c00| 6c 20 74 65 78 74 0d 3b | 20 20 61 6c 6c 20 72 65 |l text.;|  all re|
|00002c10| 67 69 73 74 65 72 73 20 | 70 72 65 73 65 72 76 65 |gisters |preserve|
|00002c20| 64 20 65 78 63 65 70 74 | 20 41 30 2c 44 30 0d 3b |d except| A0,D0.;|
|00002c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00002c90| 0d 74 61 62 54 78 4d 65 | 61 73 0d 09 4d 4f 56 45 |.tabTxMe|as..MOVE|
|00002ca0| 4d 2e 4c 09 41 32 2d 41 | 33 2f 44 33 2d 44 37 2c |M.L.A2-A|3/D3-D7,|
|00002cb0| 2d 28 53 50 29 0d 0d 09 | 4d 4f 56 45 09 34 38 28 |-(SP)...|MOVE.48(|
|00002cc0| 53 50 29 2c 44 34 09 09 | 3b 20 62 79 74 65 43 6f |SP),D4..|; byteCo|
|00002cd0| 75 6e 74 20 2a 2a 0d 09 | 4d 4f 56 45 2e 4c 09 34 |unt **..|MOVE.L.4|
|00002ce0| 34 28 53 50 29 2c 41 32 | 09 09 3b 20 74 65 78 74 |4(SP),A2|..; text|
|00002cf0| 50 74 72 20 2a 2a 0d 09 | 4d 4f 56 45 2e 4c 09 6e |Ptr **..|MOVE.L.n|
|00002d00| 6f 77 54 61 62 73 28 41 | 35 29 2c 41 30 0d 09 4d |owTabs(A|5),A0..M|
|00002d10| 4f 56 45 2e 4c 09 28 41 | 30 29 2c 41 30 0d 09 4d |OVE.L.(A|0),A0..M|
|00002d20| 4f 56 45 09 74 61 62 57 | 69 64 74 68 28 41 30 29 |OVE.tabW|idth(A0)|
|00002d30| 2c 44 33 0d 09 4d 4f 56 | 45 2e 4c 09 41 32 2c 41 |,D3..MOV|E.L.A2,A|
|00002d40| 33 09 0d 09 43 4c 52 09 | 44 35 0d 09 43 4c 52 09 |3...CLR.|D5..CLR.|
|00002d50| 44 36 0d 0d 09 43 4c 52 | 09 2d 28 53 50 29 0d 09 |D6...CLR|.-(SP)..|
|00002d60| 4d 4f 56 45 09 44 34 2c | 2d 28 53 50 29 0d 09 4d |MOVE.D4,|-(SP)..M|
|00002d70| 4f 56 45 2e 4c 09 41 32 | 2c 2d 28 53 50 29 0d 09 |OVE.L.A2|,-(SP)..|
|00002d80| 4d 4f 56 45 2e 4c 09 34 | 38 28 53 50 29 2c 2d 28 |MOVE.L.4|8(SP),-(|
|00002d90| 53 50 29 09 09 3b 20 6e | 75 6d 65 72 20 2a 2a 0d |SP)..; n|umer **.|
|00002da0| 09 4d 4f 56 45 2e 4c 09 | 34 38 28 53 50 29 2c 2d |.MOVE.L.|48(SP),-|
|00002db0| 28 53 50 29 09 09 3b 20 | 64 65 6e 6f 6d 20 2a 2a |(SP)..; |denom **|
|00002dc0| 0d 09 4d 4f 56 45 2e 4c | 09 34 38 28 53 50 29 2c |..MOVE.L|.48(SP),|
|00002dd0| 2d 28 53 50 29 09 09 3b | 20 66 6f 6e 74 69 6e 66 |-(SP)..;| fontinf|
|00002de0| 6f 20 2a 2a 0d 09 5f 53 | 74 64 54 78 4d 65 61 73 |o **.._S|tdTxMeas|
|00002df0| 0d 09 4d 4f 56 45 09 28 | 53 50 29 2b 2c 44 37 09 |..MOVE.(|SP)+,D7.|
|00002e00| 09 3b 20 6c 65 6e 67 74 | 68 20 6f 66 20 61 6c 6c |.; lengt|h of all|
|00002e10| 20 74 65 78 74 0d 09 53 | 55 42 51 09 23 31 2c 44 | text..S|UBQ.#1,D|
|00002e20| 34 09 09 3b 20 44 42 78 | 78 20 63 6f 75 6e 74 65 |4..; DBx|x counte|
|00002e30| 72 0d 0d 63 68 6b 43 52 | 0d 09 43 4d 50 2e 42 09 |r..chkCR|..CMP.B.|
|00002e40| 23 31 33 2c 28 41 32 29 | 2b 09 09 3b 20 69 66 20 |#13,(A2)|+..; if |
|00002e50| 63 68 61 72 20 3d 20 43 | 52 2c 20 74 68 65 6e 0d |char = C|R, then.|
|00002e60| 09 42 4e 45 09 63 68 6b | 54 41 42 0d 09 43 4c 52 |.BNE.chk|TAB..CLR|
|00002e70| 09 44 35 09 09 3b 20 63 | 6c 65 61 72 20 4c 65 6e |.D5..; c|lear Len|
|00002e80| 67 74 68 53 69 6e 63 65 | 4c 61 73 74 43 52 0d 09 |gthSince|LastCR..|
|00002e90| 42 52 41 09 62 6f 74 68 | 43 52 61 6e 64 54 61 62 |BRA.both|CRandTab|
|00002ea0| 0d 0d 63 68 6b 54 41 42 | 0d 09 43 4d 50 2e 42 09 |..chkTAB|..CMP.B.|
|00002eb0| 23 39 2c 2d 31 28 41 32 | 29 09 09 3b 20 69 73 20 |#9,-1(A2|)..; is |
|00002ec0| 63 68 61 72 20 3d 20 54 | 41 42 3f 0d 09 42 4e 45 |char = T|AB?..BNE|
|00002ed0| 09 65 6e 64 4c 6f 6f 70 | 0d 09 53 55 42 09 44 33 |.endLoop|..SUB.D3|
|00002ee0| 2c 44 37 0d 3b 20 77 69 | 64 74 68 20 6f 66 20 74 |,D7.; wi|dth of t|
|00002ef0| 61 62 20 70 75 74 20 44 | 37 20 69 6e 20 62 79 20 |ab put D|7 in by |
|00002f00| 53 74 64 54 78 4d 65 61 | 73 0d 09 0d 09 43 4c 52 |StdTxMea|s....CLR|
|00002f10| 09 2d 28 53 50 29 0d 09 | 4d 4f 56 45 09 44 36 2c |.-(SP)..|MOVE.D6,|
|00002f20| 2d 28 53 50 29 0d 09 4d | 4f 56 45 2e 4c 09 41 33 |-(SP)..M|OVE.L.A3|
|00002f30| 2c 2d 28 53 50 29 0d 09 | 4d 4f 56 45 2e 4c 09 34 |,-(SP)..|MOVE.L.4|
|00002f40| 38 28 53 50 29 2c 2d 28 | 53 50 29 09 09 3b 20 6e |8(SP),-(|SP)..; n|
|00002f50| 75 6d 65 72 20 2a 2a 0d | 09 4d 4f 56 45 2e 4c 09 |umer **.|.MOVE.L.|
|00002f60| 34 38 28 53 50 29 2c 2d | 28 53 50 29 09 09 3b 20 |48(SP),-|(SP)..; |
|00002f70| 64 65 6e 6f 6d 20 2a 2a | 0d 09 4d 4f 56 45 2e 4c |denom **|..MOVE.L|
|00002f80| 09 34 38 28 53 50 29 2c | 2d 28 53 50 29 09 09 3b |.48(SP),|-(SP)..;|
|00002f90| 20 66 6f 6e 74 69 6e 66 | 6f 20 2a 2a 0d 09 5f 53 | fontinf|o **.._S|
|00002fa0| 74 64 54 78 4d 65 61 73 | 0d 09 41 44 44 09 28 53 |tdTxMeas|..ADD.(S|
|00002fb0| 50 29 2b 2c 44 35 0d 0d | 09 4d 4f 56 45 2e 4c 09 |P)+,D5..|.MOVE.L.|
|00002fc0| 6e 6f 77 54 61 62 73 28 | 41 35 29 2c 41 30 0d 09 |nowTabs(|A5),A0..|
|00002fd0| 4d 4f 56 45 2e 4c 09 28 | 41 30 29 2c 41 30 0d 09 |MOVE.L.(|A0),A0..|
|00002fe0| 4d 4f 56 45 09 6c 61 73 | 74 54 61 62 28 41 30 29 |MOVE.las|tTab(A0)|
|00002ff0| 2c 44 30 0d 09 42 45 51 | 09 62 6f 74 68 43 52 61 |,D0..BEQ|.bothCRa|
|00003000| 6e 64 54 61 62 0d 3b 20 | 69 67 6e 6f 72 65 20 69 |ndTab.; |ignore i|
|00003010| 66 20 6e 6f 20 74 61 62 | 73 20 73 65 74 20 28 74 |f no tab|s set (t|
|00003020| 68 69 73 20 69 73 20 61 | 20 70 73 65 75 64 6f 43 |his is a| pseudoC|
|00003030| 52 21 29 0d 09 53 55 42 | 51 09 23 31 2c 44 30 09 |R!)..SUB|Q.#1,D0.|
|00003040| 09 3b 20 63 6f 6e 76 65 | 72 74 20 74 6f 20 44 42 |.; conve|rt to DB|
|00003050| 78 78 20 63 6f 75 6e 74 | 65 72 0d 09 4c 45 41 09 |xx count|er..LEA.|
|00003060| 54 41 42 53 28 41 30 29 | 2c 41 30 0d 0d 40 30 09 |TABS(A0)|,A0..@0.|
|00003070| 43 4d 50 09 28 41 30 29 | 2b 2c 44 35 0d 09 44 42 |CMP.(A0)|+,D5..DB|
|00003080| 4c 54 09 44 30 2c 40 30 | 0d 09 42 47 45 09 62 6f |LT.D0,@0|..BGE.bo|
|00003090| 74 68 43 52 61 6e 64 54 | 61 62 0d 3b 20 62 72 61 |thCRandT|ab.; bra|
|000030a0| 6e 63 68 20 69 66 20 77 | 65 20 61 72 65 20 70 61 |nch if w|e are pa|
|000030b0| 73 74 20 6c 61 73 74 20 | 74 61 62 2c 20 69 2e 65 |st last |tab, i.e|
|000030c0| 2e 20 69 67 6e 6f 72 65 | 20 69 74 20 28 74 68 69 |. ignore| it (thi|
|000030d0| 73 20 69 73 20 61 20 70 | 73 65 75 64 6f 43 52 21 |s is a p|seudoCR!|
|000030e0| 29 0d 09 41 44 44 09 2d | 32 28 41 30 29 2c 44 37 |)..ADD.-|2(A0),D7|
|000030f0| 0d 3b 20 61 64 64 69 6e | 67 20 70 69 78 65 6c 20 |.; addin|g pixel |
|00003100| 77 69 64 74 68 20 6f 66 | 20 6c 69 6e 65 20 69 6e |width of| line in|
|00003110| 63 6c 75 64 69 6e 67 20 | 6e 65 77 20 74 61 62 20 |cluding |new tab |
|00003120| 74 6f 20 44 37 0d 09 53 | 55 42 09 44 35 2c 44 37 |to D7..S|UB.D5,D7|
|00003130| 09 3b 20 70 69 78 65 6c | 20 77 69 64 74 68 20 6f |.; pixel| width o|
|00003140| 66 20 6c 69 6e 65 20 75 | 70 20 74 6f 20 6e 65 77 |f line u|p to new|
|00003150| 20 74 61 62 0d 09 4d 4f | 56 45 09 2d 32 28 41 30 | tab..MO|VE.-2(A0|
|00003160| 29 2c 44 35 09 3b 20 6e | 65 77 20 6c 69 6e 65 77 |),D5.; n|ew linew|
|00003170| 69 64 74 68 20 69 6e 63 | 6c 75 64 69 6e 67 20 6e |idth inc|luding n|
|00003180| 65 77 20 74 61 62 0d 0d | 62 6f 74 68 43 52 61 6e |ew tab..|bothCRan|
|00003190| 64 54 61 62 0d 09 4d 4f | 56 45 51 09 23 2d 31 2c |dTab..MO|VEQ.#-1,|
|000031a0| 44 36 0d 09 4d 4f 56 45 | 2e 4c 09 41 32 2c 41 33 |D6..MOVE|.L.A2,A3|
|000031b0| 0d 65 6e 64 4c 6f 6f 70 | 0d 09 41 44 44 51 09 23 |.endLoop|..ADDQ.#|
|000031c0| 31 2c 44 36 0d 09 44 42 | 46 09 44 34 2c 63 68 6b |1,D6..DB|F.D4,chk|
|000031d0| 43 52 0d 0d 09 4d 4f 56 | 45 09 44 37 2c 35 30 28 |CR...MOV|E.D7,50(|
|000031e0| 53 50 29 09 09 3b 20 61 | 6e 73 77 65 72 20 2a 2a |SP)..; a|nswer **|
|000031f0| 09 0d 0d 09 4d 4f 56 45 | 4d 2e 4c 09 28 53 50 29 |....MOVE|M.L.(SP)|
|00003200| 2b 2c 41 32 2d 41 33 2f | 44 33 2d 44 37 0d 09 4d |+,A2-A3/|D3-D7..M|
|00003210| 4f 56 45 2e 4c 09 28 53 | 50 29 2c 41 30 0d 09 41 |OVE.L.(S|P),A0..A|
|00003220| 44 44 09 23 24 31 36 2c | 53 50 0d 09 4a 4d 50 09 |DD.#$16,|SP..JMP.|
|00003230| 28 41 30 29 0d 0d 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |(A0)..;-|--------|
|00003240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003250| 2d 2d 2d 2d 2d 2d 2d 2d | 20 74 61 62 54 78 57 72 |--------| tabTxWr|
|00003260| 69 74 65 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ite ----|--------|
|00003270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003280| 2d 0d 3b 0d 3b 50 52 4f | 43 45 44 55 52 45 20 74 |-.;.;PRO|CEDURE t|
|00003290| 61 62 54 78 57 72 69 74 | 65 28 62 79 74 65 43 6f |abTxWrit|e(byteCo|
|000032a0| 75 6e 74 3a 20 69 6e 74 | 65 67 65 72 3b 20 74 65 |unt: int|eger; te|
|000032b0| 78 74 42 75 66 3a 20 50 | 74 72 3b 20 0d 3b 09 09 |xtBuf: P|tr; .;..|
|000032c0| 09 6e 75 6d 65 72 2c 64 | 65 6e 6f 6d 3a 20 50 6f |.numer,d|enom: Po|
|000032d0| 69 6e 74 29 3b 0d 3b 0d | 3b 09 4d 4f 56 45 09 62 |int);.;.|;.MOVE.b|
|000032e0| 79 74 65 43 6f 75 6e 74 | 2c 2d 28 53 50 29 09 31 |yteCount|,-(SP).1|
|000032f0| 36 2b 32 34 0d 3b 09 50 | 45 41 09 74 65 78 74 09 |6+24.;.P|EA.text.|
|00003300| 09 31 32 2b 32 34 0d 3b | 09 4d 4f 56 45 2e 4c 09 |.12+24.;|.MOVE.L.|
|00003310| 6e 75 6d 65 72 2c 2d 28 | 53 50 29 09 09 20 38 2b |numer,-(|SP).. 8+|
|00003320| 32 34 0d 3b 09 4d 4f 56 | 45 2e 4c 09 64 65 6e 6f |24.;.MOV|E.L.deno|
|00003330| 6d 2c 2d 28 53 50 29 09 | 09 20 34 2b 32 34 0d 3b |m,-(SP).|. 4+24.;|
|00003340| 09 4a 53 52 09 74 61 62 | 54 78 57 72 69 74 65 0d |.JSR.tab|TxWrite.|
|00003350| 3b 0d 3b 09 41 32 3e 3e | 09 70 74 72 20 74 6f 20 |;.;.A2>>|.ptr to |
|00003360| 63 75 72 72 65 6e 74 20 | 63 68 61 72 0d 3b 09 41 |current |char.;.A|
|00003370| 33 3e 3e 09 70 74 72 20 | 74 6f 20 63 68 61 72 20 |3>>.ptr |to char |
|00003380| 72 69 67 68 74 20 61 66 | 74 65 72 20 6c 61 73 74 |right af|ter last|
|00003390| 20 54 41 42 0d 3b 09 44 | 34 3e 3e 09 63 6f 75 6e | TAB.;.D|4>>.coun|
|000033a0| 74 65 72 20 6f 66 20 61 | 6c 6c 20 63 68 61 72 0d |ter of a|ll char.|
|000033b0| 3b 09 44 35 3e 3e 09 6c | 65 6e 67 74 68 20 6f 66 |;.D5>>.l|ength of|
|000033c0| 20 74 65 78 74 20 75 70 | 20 66 72 6f 6d 20 6c 61 | text up| from la|
|000033d0| 73 74 20 43 52 0d 3b 09 | 09 09 74 6f 20 70 72 65 |st CR.;.|..to pre|
|000033e0| 73 65 6e 74 20 54 41 42 | 20 28 6e 6f 74 20 69 6e |sent TAB| (not in|
|000033f0| 63 6c 75 73 69 76 65 29 | 0d 3b 09 44 36 3e 3e 09 |clusive)|.;.D6>>.|
|00003400| 6e 75 6d 62 65 72 20 6f | 66 20 63 68 61 72 20 73 |number o|f char s|
|00003410| 69 6e 63 65 20 6c 61 73 | 74 20 54 41 42 20 28 6e |ince las|t TAB (n|
|00003420| 6f 74 20 69 6e 63 6c 75 | 73 69 76 65 29 0d 3b 09 |ot inclu|sive).;.|
|00003430| 44 37 3e 3e 09 74 65 44 | 65 73 74 52 65 63 74 2e |D7>>.teD|estRect.|
|00003440| 6c 65 66 74 0d 3b 20 41 | 30 2c 44 30 20 6e 6f 74 |left.; A|0,D0 not|
|00003450| 20 70 72 65 73 65 72 76 | 65 64 0d 3b 2d 2d 2d 2d | preserv|ed.;----|
|00003460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034a0| 2d 2d 2d 2d 2d 2d 0d 74 | 61 62 54 78 57 72 69 74 |------.t|abTxWrit|
|000034b0| 65 0d 0d 09 4d 4f 56 45 | 4d 2e 4c 09 41 32 2d 41 |e...MOVE|M.L.A2-A|
|000034c0| 33 2f 44 34 2d 44 37 2c | 2d 28 53 50 29 0d 09 4d |3/D4-D7,|-(SP)..M|
|000034d0| 4f 56 45 09 34 30 28 53 | 50 29 2c 44 34 09 09 3b |OVE.40(S|P),D4..;|
|000034e0| 20 62 79 74 65 43 6f 75 | 6e 74 20 2a 2a 0d 09 53 | byteCou|nt **..S|
|000034f0| 55 42 51 09 23 31 2c 44 | 34 09 09 3b 20 6d 61 6b |UBQ.#1,D|4..; mak|
|00003500| 65 20 44 42 78 78 20 63 | 6f 75 6e 74 65 72 0d 09 |e DBxx c|ounter..|
|00003510| 4d 4f 56 45 2e 4c 09 33 | 36 28 53 50 29 2c 41 32 |MOVE.L.3|6(SP),A2|
|00003520| 09 09 3b 20 74 65 78 74 | 50 74 72 20 2a 2a 0d 09 |..; text|Ptr **..|
|00003530| 4d 4f 56 45 2e 4c 09 41 | 32 2c 41 33 09 0d 09 43 |MOVE.L.A|2,A3...C|
|00003540| 4c 52 09 44 36 0d 09 4d | 4f 56 45 2e 4c 09 6e 6f |LR.D6..M|OVE.L.no|
|00003550| 77 54 45 28 41 35 29 2c | 41 30 09 3b 20 68 61 6e |wTE(A5),|A0.; han|
|00003560| 64 6c 65 20 74 6f 20 54 | 45 72 65 63 6f 72 64 0d |dle to T|Erecord.|
|00003570| 09 4d 4f 56 45 2e 4c 09 | 28 41 30 29 2c 41 30 0d |.MOVE.L.|(A0),A0.|
|00003580| 09 4d 4f 56 45 09 32 28 | 41 30 29 2c 44 37 09 09 |.MOVE.2(|A0),D7..|
|00003590| 3b 20 64 65 73 74 52 65 | 63 74 2e 6c 65 66 74 0d |; destRe|ct.left.|
|000035a0| 0d 63 68 6b 54 61 62 2e | 0d 09 43 4d 50 2e 42 09 |.chkTab.|..CMP.B.|
|000035b0| 23 39 2c 28 41 32 29 2b | 0d 09 42 4e 45 09 65 6e |#9,(A2)+|..BNE.en|
|000035c0| 64 4c 6f 6f 70 2e 0d 0d | 3b 20 77 72 69 74 65 20 |dLoop...|; write |
|000035d0| 61 6c 6c 20 63 68 61 72 | 73 20 73 69 6e 63 65 20 |all char|s since |
|000035e0| 6c 61 73 74 20 74 61 62 | 0d 09 4d 4f 56 45 09 44 |last tab|..MOVE.D|
|000035f0| 36 2c 2d 28 53 50 29 09 | 09 3b 20 62 79 74 65 63 |6,-(SP).|.; bytec|
|00003600| 6f 75 6e 74 0d 09 4d 4f | 56 45 2e 4c 09 41 33 2c |ount..MO|VE.L.A3,|
|00003610| 2d 28 53 50 29 09 09 3b | 20 70 74 72 20 74 6f 20 |-(SP)..;| ptr to |
|00003620| 74 65 78 74 0d 09 4d 4f | 56 45 2e 4c 09 33 38 28 |text..MO|VE.L.38(|
|00003630| 53 50 29 2c 2d 28 53 50 | 29 09 09 3b 20 6e 75 6d |SP),-(SP|)..; num|
|00003640| 65 72 20 2a 2a 0d 09 4d | 4f 56 45 2e 4c 09 33 38 |er **..M|OVE.L.38|
|00003650| 28 53 50 29 2c 2d 28 53 | 50 29 09 09 3b 20 64 65 |(SP),-(S|P)..; de|
|00003660| 6e 6f 6d 20 2a 2a 0d 09 | 5f 53 74 64 54 65 78 74 |nom **..|_StdText|
|00003670| 0d 0d 09 4d 4f 56 45 51 | 09 23 2d 31 2c 44 36 09 |...MOVEQ|.#-1,D6.|
|00003680| 09 3b 20 72 65 73 65 74 | 20 63 6f 75 6e 74 65 72 |.; reset| counter|
|00003690| 0d 09 4d 4f 56 45 2e 4c | 09 41 32 2c 41 33 09 3b |..MOVE.L|.A2,A3.;|
|000036a0| 20 74 65 78 74 20 70 74 | 72 20 70 6f 69 6e 74 73 | text pt|r points|
|000036b0| 20 61 74 20 63 68 61 72 | 20 61 66 74 65 72 20 74 | at char| after t|
|000036c0| 61 62 0d 0d 09 43 4c 52 | 2e 4c 09 2d 28 53 50 29 |ab...CLR|.L.-(SP)|
|000036d0| 0d 09 4d 4f 56 45 2e 4c | 09 53 50 2c 2d 28 53 50 |..MOVE.L|.SP,-(SP|
|000036e0| 29 0d 09 5f 47 65 74 50 | 65 6e 0d 09 4d 4f 56 45 |).._GetP|en..MOVE|
|000036f0| 2e 4c 09 28 53 50 29 2b | 2c 44 35 09 3b 20 68 6f |.L.(SP)+|,D5.; ho|
|00003700| 72 69 7a 20 70 6f 73 69 | 74 69 6f 6e 20 69 6e 20 |riz posi|tion in |
|00003710| 6c 6f 77 20 77 6f 72 64 | 0d 09 53 55 42 09 44 37 |low word|..SUB.D7|
|00003720| 2c 44 35 09 3b 20 6c 65 | 6e 67 74 68 20 6f 66 20 |,D5.; le|ngth of |
|00003730| 74 65 78 74 20 66 72 6f | 6d 20 7a 65 72 6f 20 70 |text fro|m zero p|
|00003740| 6f 73 69 74 69 6f 6e 0d | 0d 09 4d 4f 56 45 2e 4c |osition.|..MOVE.L|
|00003750| 09 6e 6f 77 54 61 62 73 | 28 41 35 29 2c 41 30 0d |.nowTabs|(A5),A0.|
|00003760| 09 4d 4f 56 45 2e 4c 09 | 28 41 30 29 2c 41 30 0d |.MOVE.L.|(A0),A0.|
|00003770| 09 4d 4f 56 45 09 6c 61 | 73 74 54 61 62 28 41 30 |.MOVE.la|stTab(A0|
|00003780| 29 2c 44 30 0d 09 42 45 | 51 09 65 6e 64 4c 6f 6f |),D0..BE|Q.endLoo|
|00003790| 70 2e 09 09 3b 20 69 67 | 6e 6f 72 65 20 74 61 62 |p...; ig|nore tab|
|000037a0| 20 69 66 20 6e 6f 6e 65 | 20 61 72 65 20 73 65 74 | if none| are set|
|000037b0| 0d 09 53 55 42 51 09 23 | 31 2c 44 30 09 09 3b 20 |..SUBQ.#|1,D0..; |
|000037c0| 63 6f 6e 76 65 72 74 20 | 74 6f 20 44 42 78 78 20 |convert |to DBxx |
|000037d0| 63 6f 75 6e 74 65 72 0d | 09 4c 45 41 09 54 41 42 |counter.|.LEA.TAB|
|000037e0| 53 28 41 30 29 2c 41 30 | 0d 0d 40 30 09 43 4d 50 |S(A0),A0|..@0.CMP|
|000037f0| 09 28 41 30 29 2b 2c 44 | 35 0d 09 44 42 4c 54 09 |.(A0)+,D|5..DBLT.|
|00003800| 44 30 2c 40 30 0d 09 42 | 47 45 09 65 6e 64 4c 6f |D0,@0..B|GE.endLo|
|00003810| 6f 70 2e 09 3b 20 62 72 | 61 6e 63 68 20 69 66 20 |op..; br|anch if |
|00003820| 77 65 20 61 72 65 20 70 | 61 73 74 20 6c 61 73 74 |we are p|ast last|
|00003830| 20 74 61 62 0d 0d 09 4d | 4f 56 45 09 2d 32 28 41 | tab...M|OVE.-2(A|
|00003840| 30 29 2c 44 30 0d 09 53 | 55 42 09 44 35 2c 44 30 |0),D0..S|UB.D5,D0|
|00003850| 0d 09 4d 4f 56 45 09 44 | 30 2c 2d 28 53 50 29 0d |..MOVE.D|0,-(SP).|
|00003860| 09 43 4c 52 09 2d 28 53 | 50 29 0d 09 5f 4d 6f 76 |.CLR.-(S|P).._Mov|
|00003870| 65 0d 0d 65 6e 64 4c 6f | 6f 70 2e 0d 09 41 44 44 |e..endLo|op...ADD|
|00003880| 51 09 23 31 2c 44 36 0d | 09 44 42 46 09 44 34 2c |Q.#1,D6.|.DBF.D4,|
|00003890| 63 68 6b 54 61 62 2e 0d | 0d 09 4d 4f 56 45 09 44 |chkTab..|..MOVE.D|
|000038a0| 36 2c 2d 28 53 50 29 09 | 09 3b 20 77 72 69 74 65 |6,-(SP).|.; write|
|000038b0| 20 61 6c 6c 20 63 68 61 | 72 73 20 73 69 6e 63 65 | all cha|rs since|
|000038c0| 20 6c 61 73 74 20 74 61 | 62 0d 09 4d 4f 56 45 2e | last ta|b..MOVE.|
|000038d0| 4c 09 41 33 2c 2d 28 53 | 50 29 0d 09 4d 4f 56 45 |L.A3,-(S|P)..MOVE|
|000038e0| 2e 4c 09 33 38 28 53 50 | 29 2c 2d 28 53 50 29 09 |.L.38(SP|),-(SP).|
|000038f0| 09 3b 20 6e 75 6d 65 72 | 20 2a 2a 0d 09 4d 4f 56 |.; numer| **..MOV|
|00003900| 45 2e 4c 09 33 38 28 53 | 50 29 2c 2d 28 53 50 29 |E.L.38(S|P),-(SP)|
|00003910| 09 09 3b 20 64 65 6e 6f | 6d 20 2a 2a 0d 09 5f 53 |..; deno|m **.._S|
|00003920| 74 64 54 65 78 74 0d 0d | 53 74 6f 70 54 4f 0d 09 |tdText..|StopTO..|
|00003930| 4d 4f 56 45 4d 2e 4c 09 | 28 53 50 29 2b 2c 41 32 |MOVEM.L.|(SP)+,A2|
|00003940| 2d 41 33 2f 44 34 2d 44 | 37 0d 09 4d 4f 56 45 2e |-A3/D4-D|7..MOVE.|
|00003950| 4c 09 28 53 50 29 2c 41 | 30 0d 09 41 44 44 09 23 |L.(SP),A|0..ADD.#|
|00003960| 24 31 32 2c 53 50 0d 09 | 4a 4d 50 09 28 41 30 29 |$12,SP..|JMP.(A0)|
|00003970| 0d 0d 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..;-----|--------|
|00003980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 74 |--------|------ t|
|000039a0| 73 74 54 61 62 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |stTab --|--------|
|000039b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000039c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000039d0| 3b 20 6f 6e 20 65 6e 74 | 72 79 3a 0d 3b 09 41 30 |; on ent|ry:.;.A0|
|000039e0| 3e 3e 09 70 74 72 20 74 | 6f 20 68 54 65 78 74 20 |>>.ptr t|o hText |
|000039f0| 62 75 66 66 65 72 0d 3b | 09 44 36 3e 3e 09 63 68 |buffer.;|.D6>>.ch|
|00003a00| 61 72 20 70 6f 73 69 74 | 69 6f 6e 20 6f 66 20 31 |ar posit|ion of 1|
|00003a10| 73 74 20 63 68 61 72 20 | 69 6e 20 6c 69 6e 65 0d |st char |in line.|
|00003a20| 3b 09 44 37 3e 3e 09 74 | 65 73 74 20 63 68 61 72 |;.D7>>.t|est char|
|00003a30| 20 70 6f 73 69 74 69 6f | 6e 0d 3b 20 73 65 74 73 | positio|n.; sets|
|00003a40| 20 5a 62 69 74 20 6f 66 | 20 43 43 20 69 66 20 63 | Zbit of| CC if c|
|00003a50| 68 61 72 20 6e 6f 74 20 | 70 73 65 75 64 6f 43 52 |har not |pseudoCR|
|00003a60| 20 28 74 61 62 29 0d 3b | 20 70 72 65 73 65 72 76 | (tab).;| preserv|
|00003a70| 65 73 20 61 6c 6c 20 72 | 65 67 69 73 74 65 72 73 |es all r|egisters|
|00003a80| 20 65 78 63 65 70 74 20 | 41 30 2c 44 30 2c 44 31 | except |A0,D0,D1|
|00003a90| 0d 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00003aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 74 73 74 |--------|----.tst|
|00003ae0| 54 61 62 0d 0d 09 43 4d | 50 2e 42 09 23 24 39 2c |Tab...CM|P.B.#$9,|
|00003af0| 28 41 30 2c 44 37 29 09 | 09 3b 20 69 66 20 3d 20 |(A0,D7).|.; if = |
|00003b00| 54 41 42 0d 09 42 4e 45 | 09 40 30 0d 09 43 4c 52 |TAB..BNE|.@0..CLR|
|00003b10| 09 2d 28 53 50 29 0d 09 | 4d 4f 56 45 2e 4c 09 41 |.-(SP)..|MOVE.L.A|
|00003b20| 30 2c 2d 28 53 50 29 0d | 09 4d 4f 56 45 09 44 36 |0,-(SP).|.MOVE.D6|
|00003b30| 2c 2d 28 53 50 29 09 09 | 3b 20 66 69 72 73 74 43 |,-(SP)..|; firstC|
|00003b40| 68 61 72 0d 09 4d 4f 56 | 45 09 44 37 2c 2d 28 53 |har..MOV|E.D7,-(S|
|00003b50| 50 29 0d 09 53 55 42 09 | 44 36 2c 28 53 50 29 09 |P)..SUB.|D6,(SP).|
|00003b60| 09 3b 20 62 79 74 65 43 | 6f 75 6e 74 0d 09 5f 54 |.; byteC|ount.._T|
|00003b70| 65 78 74 57 69 64 74 68 | 0d 09 4d 4f 56 45 09 28 |extWidth|..MOVE.(|
|00003b80| 53 50 29 2b 2c 44 30 09 | 3b 20 6c 65 6e 67 74 68 |SP)+,D0.|; length|
|00003b90| 20 6f 66 20 74 65 78 74 | 20 66 72 6f 6d 20 44 36 | of text| from D6|
|00003ba0| 20 74 6f 20 44 37 0d 09 | 4d 4f 56 45 2e 4c 09 6e | to D7..|MOVE.L.n|
|00003bb0| 6f 77 54 61 62 73 28 41 | 35 29 2c 41 30 0d 09 4d |owTabs(A|5),A0..M|
|00003bc0| 4f 56 45 2e 4c 09 28 41 | 30 29 2c 41 30 0d 09 4d |OVE.L.(A|0),A0..M|
|00003bd0| 4f 56 45 09 6c 61 73 74 | 54 61 62 28 41 30 29 2c |OVE.last|Tab(A0),|
|00003be0| 44 31 0d 09 4c 45 41 09 | 54 41 42 53 28 41 30 29 |D1..LEA.|TABS(A0)|
|00003bf0| 2c 41 30 0d 09 41 44 44 | 09 44 31 2c 44 31 0d 09 |,A0..ADD|.D1,D1..|
|00003c00| 43 4d 50 09 2d 32 28 41 | 30 2c 44 31 29 2c 44 30 |CMP.-2(A|0,D1),D0|
|00003c10| 0d 09 53 4c 54 09 44 30 | 0d 3b 20 69 66 20 44 30 |..SLT.D0|.; if D0|
|00003c20| 20 3c 20 6c 61 73 74 54 | 61 62 20 70 6f 73 69 74 | < lastT|ab posit|
|00003c30| 69 6f 6e 2c 20 72 65 74 | 75 72 6e 20 4e 6f 74 45 |ion, ret|urn NotE|
|00003c40| 71 75 61 6c 0d 09 54 53 | 54 2e 42 09 44 30 0d 40 |qual..TS|T.B.D0.@|
|00003c50| 30 09 52 54 53 0d 0d 09 | 45 4e 44 0d 00 00 00 00 |0.RTS...|END.....|
|00003c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c80| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00003c90| 07 00 06 00 06 00 03 00 | 03 00 03 00 03 00 07 00 |........|........|
|00003ca0| 07 00 08 00 07 00 07 00 | 07 00 07 00 03 00 03 00 |........|........|
|00003cb0| 0b 74 61 62 47 6c 75 65 | 2e 61 73 6d 02 00 00 00 |.tabGlue|.asm....|
|00003cc0| 54 45 58 54 45 44 49 54 | 01 00 00 05 00 62 00 00 |TEXTEDIT|.....b..|
|00003cd0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 05 00 62 |..TEXTED|IT.....b|
|00003ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cf0| 00 00 9b b6 d3 0a 00 00 | 3b dc 00 00 01 5c 00 00 |........|;....\..|
|00003d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 14 1c 00 |........|........|
|00003d20| 08 68 a0 a1 10 c0 29 80 | 48 c0 a2 0d 09 04 03 44 |.h....).|H......D|
|00003d30| 20 80 00 00 06 00 00 00 | 00 00 00 00 00 00 00 00 | .......|........|
|00003d40| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00003d50| 80 d0 d0 00 00 00 00 00 | 00 00 0a 00 00 00 00 00 |........|........|
|00003d60| 00 20 40 82 88 32 c0 82 | 03 04 02 04 04 02 5f 26 |. @..2..|......_&|
|00003d70| 28 00 00 d5 38 de 30 98 | 40 00 b9 39 c1 f9 be e7 |(...8.0.|@..9....|
|00003d80| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 84 00 00 |.......M|onaco...|
|00003d90| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00003da0| 00 16 00 00 00 46 00 00 | cc 24 04 0c 00 00 00 1c |.....F..|.$......|
|00003db0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00003dc0| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 77 70 |........|......wp|
|00003dd0| 03 ec ff ff 00 00 00 0e | 00 01 77 74 00 00 00 00 |........|..wt....|
|00003de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+